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3 MODULE gfm$file_ table manager ; 

4 { 

5 { PURPOSE. 

6 { This module contains procedures for assigning and freeing file descriptor table entries. 

7 ¢{ 

8&8 { DESIGN: ; 

9 { File descriptors are kept in either mainframe wired or in job fixed. They are kept in 
1° { an array at a large offset; they are NOT part of the heap. The address of the array and 
11 { structures used to manage the array are defined in GFCSCONSTANTS. 

12 { The tables used to manage FDES are kept in mainframe/wired/ job fixed at offset 
13 { GFCS$FDE CONTROL TABLE BASE. A multi-level index structure is used to manage assignment 
14 { of entries. 
15 { co A packed array of 65535 booleans (organized as array [0 .. 1023] of words) is used 
16 { to manage assignment of indivual FOES. If bit <n> of the array is FALSE, then 
17 { FDE number <n> is free; if bit <n> is TRUE then FDE number «n> is assigned. 
18 { o In order to improve search time to find an avaitable entry, a second level 
19 { index (packed array [0 .. 1023] of booleans) is kept to indicate which words in 
20 { the lower level table have available entries. If bit <m> of this array is FALSE then 
21 { word <m> of the lower level table contains free entries. 
22 { o A first level index is maintained to indicate which words in the second level 
23 { index have free entries. 
24 { o A free entry can be located by examining 3 words; first level index word, second level 
25 { word, in_use word. A hardware instruction (CNIF - convert_integer_to_float) is used 
26 { that will give the bit number of the first "zero" bit in a word. 
27 { 
28 { 
29 { NOTE: 
30 _{ o The table structure wili support assignment of up to 262K entries. Only &5K are 
31 { currently used because SFID.INDEX is only 2 bytes. Increasing this to 3 bytes 
32 { would cause incompatibilities. 
33 { 
34 { o Create an SCL variable GFCSTEST_HARNESS to compile a standalone 
35 { version of this module that can be used for testing. 
36 { 
37 
38 CONST 
39 afc$debug = TRUE; 
40 
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File Management : Assign and Free FDE Entries 
Declarations Referenced by this MODULE 


PROCEDURE [INLINE] osp$clear_mainframe_sig_lock 


(VAR lock: ost$signature_lock); 


PROCEDURE [XREF] osp$fatal_system_error (error_message: string [( * ); 


status: Aost$status) ; 


PROCEDURE [INLINE] osp$set_mainframe_sig_ lock 


(VAR lock: ost$signature_lock) ; 


{System page size. } 


VAR 


osv$page_ size: [XREF] ost$page_size; 
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FDE Initialization value 


CODKDDDDCDOODDODDDODODODDDDODO0D00000000000000 


1.0 8$102 1889-08-21 


2435 { 
2436 { The following table defines the initial value of a newly assigned FDE. Callers 
2437 { of gfpSassign_fde may depend on values defined in this table. Values in the table 
2438 { specified as "*" mormally are filled in by the caller. 
24393 
2440 { 
2441 
2442 
2443 77 FMT (FORMAT := OFF) ?7 
2444 
2445 VAR 
2446 initial _fde_entry: [READ, oss$mainframe_paged_literal] gft$file_descriptor_entry := 
2447 
2448 +, {job_loeck - not locked 
2449 [FALSE, Oo], {monitor inter lock 
2450 [FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE], {flags} 
2451 {*} [O, osc$cyber_180 model_unknown, 1980, 1, 1, 9, 9, ©, ©, 0], {global_file_ name 
2452 NIL, {file hash thread 
2453 oO, {attached_in_write count 
2454 °, {attach_count 
2455 °, {open_count 
2456 gfc$fk_unnamed_ file, {file _ kind 
2457 *, {Random 1 250} {file hash 
2458 [O, FALSE, [0, O]], {segment _lock 
2453 QO, {asti 
2460 °, {eoi_byte_address 
2461 mmc$eoi_actual, {eci_state 
2462 16384, {allocation_unit_size 
2463 16384, {transfer _unit size 
2464 TEFFFFFF( 1G), {file limit (' ! is this right) 
2465 gfc$qs_job_working_ set, {queue _status 
2466 pmc$initialize_to zero, {preset value ye 
2467 °O, {time last modified 
2468 QO, {last segment number 
2469 fo, oO], {glebal_task_id 
2470 °, {stack_for_ring 
2471 gfc$fm_transient_segment ]; {media 
2472 
2473 
2474 77 FMT (FORMAT :=: ON) ?7 
2475 
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FUNCTION [INLINE] max 
{ i: integer; 
j: integer): integer; 


IF i > j THEN 


max := i; 
ELSE 

max : = j; 
IFEND; 


FUNCEND max; 


FUNCTION [INLINE] min 
i: integer; 
j: imteger): integer; 


IF i < j THEN 


min i:= i; 
ELSE 

mim :f j; 
IFEND; 


FUNCEND min; 
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free unused pages 
o 25085 { 
° 2506 { This routine is called to free pages assigned to file descriptors that have been freed. 
°o 2507 { Since file descriptors reside in wired/fixed memory, aging will never free the 
o 2508 { unused pages; the only way pages get freed is to explicitly issue a MMPS$FREE_ PAGES 
o 2509 { request to free them. 
Oo 2510 { 
Oo 2511 
oO 2512 PROCEDURE [INLINE] free_unused_ pages 
oO 2513 ( control_p: Agft$file descriptor control; 
Oo 2514 free word index: 0 .. 1023); 
Oo 2515 
Oo 2516 VAR 
oO 2517 address_to_ free: Acell, 
o 2518 664: boolé4, 
°o 25193 end page: integer, 
oO 2520 first _fde_index_to_free: gft$file_descriptor_index, 
oO 2521 last_fde_index_to_free: gft$file_descriptor_index, 
° 2522 low_bit_index: integer, 
oO 2523 low_word index: integer, 
oO 2524 high_bit index: integer, 
° 2525 high_word_ index: integer, 
oO 2526 max words to search: integer, 
° 2527 pages _to_ free: integer, 
° 2528 Start _ page: integer, 
o 2529 Status: ost$status, 
° 2530 stop: integer, 
° 2531 word: integer, 
oO 2532 words p: Aarray [0 .. gfc$max_level_2_ index] of integer; 
Oo 2533 
oO 2534 
© 2535 { Calculate number of IN_USE words to search for free entries. The raximum number is 
° 2536 { determined by the page size and FDE size. It is necessary to search multiple words because 
° 2537 { more than 64 FDES may fit in a word. 
oO 2538 
oO 2539 max_words to search :=: ((osv$page_size DIV gfc$fde_ size) DIV 64) + 1; 
Oo 2540 
oO 2541 
° 2542 { Calculate the FDE index of the last FDE entry that is in use that has 
° 2543 { an FDE.INDEX lower than the one just freed. Make sure not to run off the bottom 
0° 2544 { of the array. Terminate the search after checking a few words worth of bits; 
o 2545 { exact number determined by <max_words to_search>. Theres no since freeing 
3° 2546 { pages that have already been freed. NOTE: there’s no tricky way to find the last "1" 
° 2547 { bit in a word; keep shifting the word right until it is ODD. 
Oo 2548 
Oo 2549 words p := #LOC (controil_p4.in_use); 
oO 2550 low_word imdex := free word index - 1; 
oO 2551 stop := max (0, free_word_index - max_words to search + 1); 
Oo 2552 WHILE (low _word index >= stop) AND (words _pA [low_word_index] = 0) DO 
oO 2553 low_word index :=5 low _word index - 1; 
Oo 2554 WHILEND; 
oO 2555 low_bit index :=: 64; 
Oo 2556 IF low_word_ index >= stop THEN 
: Oo 2557 word := words pA [1low_word_index]; 
oO 2558 WHILE #SHIFT (#SHIFT (word, -1), 1) = word oO 
o 2559 word :: #SHIFT (word, -1); 
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free _ unused pages 
oO 25606 low_bit_index :: low_bit_index - 1; 
o 2561 WHILEND; 
Oo 2562 IFEND ; 
o 2563 first _fde_index to _free := low _bit_imdex + low _word index * 64; 
o 2564 
o 2565 
.o) 2566 { Calculate tne FDE index of the first FDE entry that is in use that has 
.°) 2567 { and FDE.INDEX higher than the one just freed. Make sure not to run off the top 
° 2568 { of the array. Terminate the search after checking a few words worth of bits; 
o 2569 { exact number determined by <max_words_to_search>. 
o 2570 
oO 2571 high _word_index := free word index + 1; 
oO 2572 stop := min (UPPERBOUND (words pA), free_word_ index + max_words_ to search - 1); 
o 2573 WHILE (high_word_index <= stop) AND (words_p” [high_word_ index] = 6) DO 
o 2574 high_word_ tndex :=: high _word_index + 1; 
o 2575 WHILEND; 
© 2576 IF high_word tndex > stop THEN 
o 2577 high _bit_index := 0; 
Oo 2578 ELSE 
o 2578 word := -(words pA [hnigh_word_ index] + 1); 
o 2580 #UNCHECKED CONVERSION (word, b64); 
Oo 2581 high_bit_index := find_zero_ bit [(b64); 
o 2582 IFEND; 
o 2583 last _ fde_ index to free := high _bit_index + high_word_ index * 64 - 1; 
Oo 2584 
Oo 2585 
© 2586 { Calculate addresses to be freed. Round starting and ending address to page boundaries. 
o 2587 { Dont actually issue the monitor request to free pages unless there are really pages 
o 2588 { to be freed. 
o 2589 
o 2590 start_page := gfc$fde_size * first _fde_index_to_ free; 
o 2591 Start _page := (start_page + osv$page size - 1) DIV osv$page_ size; 
Oo 2592 
Oo 2583 end_page := gfc$fde_size * (last_fde_index_to_ free + 1); 
Oo 2594 end_page = end_page DIV osv$page_size; 
o 2595 
° 2596 pages_to_free ::= end page - start_page; 
oO 25397 
Oo 2598 
o 2589 IF pages_to_ free <> O THEN 
o 2600 address to_free := #ADDRESS (1, #SEGMENT (control_p), gfc$fde_table_base + start page * osv$page_size) ; 
© 2601 {!!!### mmp$free_pages (address_to_free, pages _to_free * osv$page_ size, osc$wait, status); 
oO 26062 IFEND; 
Oo 2603 
° 2604 PROCEND free unused pages; 


PAGE 5 


PAGE 6 


SOURCE LIST OF gfm$file_table_ manager NOS/VE CYBIL/II 1.0 88102 1989-08-21 | 13:33 4,34 PAGE 7 


find_zero_bit 


o 2607 { 

o 2608 { This tricky little routine returns the bit number of the first "zero" bit in a 64-bit word 
© 2609 { (or in this case a packed array of 64 booleans). The algorithm uses trick CYBIL code to convert 
Oo 2610 { the word to an integer, then convert the integer to a REAL. The exponent portion of 
° 2611 { the REAL gives the bit mumber of the first "zero" bit. 

o 2612 

Oo 2613 

oO 2614 FUNCTION [INLINE] find_zero_bit 

Oo 2615 { S64: bool64): 0 .. 63; 

o 2616 

Oo 2617 VAR 

o 2618 int: integer, 

° 2619 r: real, 

ce) 2620 trick: record 

3° 2621 case boolean of 

Oo 2622 = FALSE = 

° 2623 int: integer, 

oO 2624 * TRUE = 

oO 2625 FIiTT: O .. 255, 

O 2626 bit: Oo .. 255, 

© 2627 casend, 

ce 2628 recend, 

o 2629 zero bit: integer ; 

Oo 2630 

Oo 2631 

° 2632 { If the integer is positive, then the first zero bit must be bit Oo. 

CG 2633 

oO 2634 #UNCHECKED CONVERSION (s64, int); 

oO 2635 IF int >: © THEN 

oO 2636 zero bit := 0; 

oO 2637 

fe) 2638 { Otherwise, convert the integer to REAL and get the bit number from the exponent. Note that the bits 
o 2639 { in the integer are complemented [((-int-1) changes 1’s to 0’s and O’s to 1‘s) before converting to 
ce) 2640 { real because the exponent actually give the first "one" bit. 

o 2641 

© 2642 ELSE 

oO 2643 ro: GREAL (-int - 1); 

oO 2644 #UNCHECKED CONVERSION ([(r, trick.int); 

Oo 2645 zero_bit := 64 - trick.bit; 

© 2646 IFEND; 

© 2647 

oO 2648 find_zero bit : = zero_bit; 

o 26493 

o 2650 FUNCEND find_zero_bit; 
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Oo 2653 

o 2654 { 

ce) 2655 { This procedure is used to assign a mew FDE entry. It searcns the FDE array in job 
° 2656 { fixed or mainframe wired (depending on table residency) and returns an SFID & pointer 
© 2657 { to the first availabie entry found. On return from this procedure the entry is NOT locked 
° 2658 { for the task that assigned it. 

o 2659 { 

ce 2660 { Most fields in the newly assigned FDE are initialized to a default value. See the module 
oO 2661 { GFMSFILE TABLE MANAGER for a definition of the values. 

oO 2662 { 

o 2663 { 

oO 2664 { GFPSASSIGN_FDE (RESIDENCE, SEGMENT NUMBER, SFID, FDE_P) 

o 2665 { 

o 2666 { 

© 2667 { RESIDENCE: (INPUT) Specifies whether the FDE should be assigned in job fixed or 

o 2668 { mainframe wired. 

oO 2669 { SEGMENT _NUMBER: (INPUT) If residence is GFC$TR_NULL, then this parameter specifies 
° 2670 { an alternate segment number for the job fixed segment. 

oO 2671 { SFID: (OUTPUT) The SFID of entry assigned is returned here. The SFID.HASH 

° 2672 { field in the SFID and FDE is initially set to ZERO by this procedure. The 
.¢] 2673 { caller is responsible for changing these fields. 

Oo 2674 { FDE_P: (OUTPUT) This parameter contains a pointer to the FDE assigned. The FDE 
o 2675 { is NOT locked for task the created it. 

© 2676 

Oo 2677 

o 2678 PROCEDURE [XDCL] gfp$assign_fde 

4 2679 ( residence: gft$table_ residence; 

4 2680 segment_number: ost$segment ; 

4 2681 VAR sfid: gft$system_file_ identifier; 

4 2682 VAR fde_p: gft$file_desc_entry_p); 

4 2683 

4 2684 VAR 

4 2685 control_p: Agft$file descriptor control, 

4 2686 file_entry_index: gft$file descriptor index, 

4 2687 ljevel1l: oO .. 6&3, 

4 2688 levetl2: o .. 63, 

4 2689 seg: ost$segment, 

4 2690 trick_int: integer, 

4 2691 zinuse: 0 .. 63; 

& 26392 

4 2693 

4 2694 { Get a pointer to the control structures for the FDEsS. This pointer may be either 

4 26935 { a pointer to job fixed or to mainframe wired. 

4 2696 

4 2637 IF residence = gfc$tr_job THEN 

E 2698 seg :* osc$segnum_job_fixed_ heap; 

14 2699 ELSEIF residence = gfc$tr_ system THEN 

1A 2700 seg := osc$segnum_mainframe_wired; 

22 2701 ELSE 

22 2702 seg := segment_number ; 

28 2703 IFEND; 

28 2704 

28 2705 control p := #ADDRESS (1, seg, gfc$fde_control_table base); 

28 2706 
28 2707 


28 2708 { Lock the tables to prevent other users from assigning FDEs. 
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28 2709 
28 2710 osp$set_mainframe_sig_lock (control pA. lock); 
126 2711 
126 2712 


126 2713 { Scan the level 1 index to find the first level 2 tabte that nas free entries. 
126 2714 

126 2715 levell := find_zero bit (control pA. index); 

150 2716 

150 2717 


150 2718 { If the level 1 index is greater than 15, then tables are full. (Although the table structure will Support 
150 2719 { more entries, it would require an SFID.INDEX > 65K. This breaks compatibility). 

150 2720 

150 2721 IF levelt >» 15 THEN 

158 2722 fde_p := NIL; 

168 2723 ELSE 


168 2725 { Scan reset of the indices to find the index of the FDE to be assigned. 


168 2726 

168 2727 level2 :: find_zero_bit (control _p’.index2 [level1]); 

196 2728 zinuse := find _zero_bit (control _pA.in_use [level2 + 64 * leveli)); 

1CC 2729 

1c€c 2730 

1Cc 2731 { Mark the entry as assigned. If the array entry containing the IN_USE bit for the entry just assigned 
cc 2732 { is full (ali entries in the block assigned), mark the level 2 index as full. If the array entry 
1CC 2733 { containing the level 2 bit is full, mark the level 1 table as full. 

1cCc 2734 

1CC 2735 control _pA.in_use [level2 + 64 * level1l] [zinuse] := TRUE; 

1€C 2736 

1CC 2737 #UNCHECKED CONVERSION (control pA.in_use [level2 + 64 * level1], trick_int); 
1CC 2738 IF trick_imt = -1 THEN 

1EE 2739 control _p%.index2 [level1] [level2] := TRUE; 

1EE 2740 #UNCHECKED CONVERSION (control pA.index2 [level1], trick _ int); 

1EE 2741 IF trick_inmt = -1 THEN 

208 2742 control_p4A.index1 [leveli] := TRUE; 

210 2743 IFEND ; 

212 2744 IFEND ; 

212 2745 

212 2746 


212 2747 { Create the SFID and FDE_P for the entry just assigned. Note that the hash field must be initialized by the 
212 2748 { caller. 


212 2749 

212 2750 file_entry_index := ((levell * 64) + level2) * 64 + zinusSse; 

212 2751 sfid.file_entry index :: file_entry_index; 

212 2752 IF residence = gfc$tr_system THEN 

22E 2753 sfid.residence := gfc$tr_system; 

236 2754 ELSE 

236 2755 sfid.residence := gfc$tr_job; 

234 2756 IFEND; 

234 2757 fde_ p := #ADDRESS (1, #SEGMENT (control_p), gfc$fde_table_base + gfc$fde_size * file_entry_index) ; 


23a 2760 { Initialize the table entry with the default FDE value. 


# 23A 2762 fde_pA := initial_fde_entry; 
26C 2763 fde_ pA.file_ nash := (#free running clock (0) MOD 249) + 1; 
276 2764 sfid.file_ hash :: fde_ pA.file_ hash; 
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232 2765 IFEND; 
r 292 2766 
292 2767 osp$clear_mainframe_sig lock (control pA. lock); 
3A8 2768 
3A8 2769 PROCEND gfp$assign_fde; 


© 2770 
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2774 { 

2775 { This procedure is used to free an FDE entry. Before calling this procedure, 
2776 { all memory assigned to the file should be freed. All tables subordinate to he FDE 
2777 { should be freed. The FDE cannot be accessed after being freed. 
2778 { 

2779 { Before calling this procedure, the FDE entry should be unlocked with gfp$S$unlock_fde 
2780 { locked. 

2781 { 

2782 { GFPSFREE FDE (FDE P) 

2783 { 

2784 { FDE_P: (INPUT) This parameter contains a pointer to the entry being freed. 
2785 { 

2786 

2787 PROCEDURE [XDCL] gfp$free_fde 

2788 ( fde_p: gft$file_desc_entry_p); 

2789 

2790 VAR 

2791 control _p: AgftS$file_ descriptor control, 

2792 gtid_int: integer, 

2793 i: gft$file_ descriptor index, 

2794 int: integer, 

2795 levell: oO 63, 

2796 level2: 0 63, 

2797 xcb_ p: Aost$execution_control_ block, 

2798 zinuse: oO 63; 

27993 

2800 

2801 { Verify that the FDE_P is valid. 

2802 

2803 IF (#SEGMENT (fde_p) <> 1) AND (#SEGMENT (fde_p) <> 3) THEN 
2804 osp$system_error (‘GF - Bad FDE_P on FREE’, NIL); 

2805 IFEND ; 

2806 int :2 (#OFFSET (fde_p) - gfc$fde_tabie base) DIV gfc$fde_size; 
2807 IF (int < 0) OR (int > 65535) OR ((int * gfc$fde_size + gfc$fde_table base) 
2808 osp$system_error (’GF - Bad FDE_P om FREE’, NIL); 

2809 IFEND; 

2810 IF fde_pA. job_lock. locked THEN 

2811 osp$system_error (‘GF - freed locked FDE’, NIL); 

2812 IFEND; 

2813 IF fde_ pA.asti <> © THEN 

2814 osp$system_error (‘GF - freed FDE with asti <> ©’, NIL); 

2815 IFEND; 

2816 

2817 

2818 { Calculate the indexes to the index levels. 

2819 

2820 i: (#OFFSET (fde_p) - gfc$fde_table_ base) DIV gfc$fde_size; 
2821 zinuse := i MOD 64; 

2822 + 3:2 7 DIV 64; 

2823 level2 := i MOD 64; 

2824 ios: ai DIV 64; 

2825 levell := i MOD 64; 

2826 

2827 


2828 { Halt if we attempt to free an FDE with an open_count > Oo. 
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28293 

2830 IF fde_pA.open_count > © THEN 

2831 osp$system_error (’GF - open_count > © during FREE_FDE’, NIL); 

2832 IFEND; 

2833 

2834 { Get a pointer to the control structures for the FDES. This pointer may he either 
2835 { a pointer to job fixed or to mainframe wired. 

2836 

2837 control p := #ADDRESS (1, #SEGMENT (fde_p), gfc$fde_ control _table_base) ; 

2838 

2839 

2840 { Lock the tabies to prevent other users from assigning FDEs. 

2841 

2842 osp$set_mainframe_sig_lock (control pA. lock); 

2843 

2844 

2845 { Set each index level to indicate free entries. Its faster to mark each level to 
2846 { snow free entries than to actually check 

2847 

2848 control pA.in_use [level2 + 64 * levell] [zinuse] := FALSE; 

2843 control _pA.index2 [level1] [leve12] := FALSE; 

2850 control _ pA.indexi [levett] :=* FALSE; 

2851 

2852 

2853 { Change the file hash in the FDE being freed to cause errors if an attempt is made to 
2854 { reference the entry again. NOTE that the job_lock is not cieared and will contain the GTID 
2855 { of the task that freed the entry until the entry is reused. 

28565 

2857 fde pA.file_hash := gfc$null_file_ hash; 

2858 

2859 

2860 { If the word containing the ’in_use’ bit for the entry just freed is all zeros, attempt to 
2861 { free unused pages. 

2862 

2863 #UNCHECKED CONVERSION (control pA.in_use [level2 + 64 * leveli], int); 

2864 IF int = © THEN 

2865 free unused pages (control_p, level2 + 64 * levell); 

2866 IFEND; 

2867 

2868 osp$clear_mainframe_sig_ lock (control pA. lock); 

2869 

2870 PROCEND gfp$free_fde; 
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Oo 2873 { 
fe) 2874 { This procedure should be called earily in deadstart. The primary function of this call is to 
ce) 2875 { verify that compile time constants are correct. CYBIL dees not nave the language 
° 2876 { constructs that would allow this type of checking to be done at compile time. 
© 2877 { If constants are incorrect, deadstart is aborted with a nice message. 
Oo 2878 { 
Oo 2879 
Oo 2880 PROCEDURE [XDCL] gfp$initialize; 
4 2881 
4 2882 IF #SIZE (gft$file_ descriptor_entry) > gfc$fde_ size THEN 
6 2883 osp$fatal_system_error (’GF - FDE size is incorrect’, NIL); 
2E 2884 IFEND; 
2E 2885 
2E 2886 PROCEND gfp$initialize; 
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2889S 


mPa ore ese es ere eS ee eee re res 


a 


This procedure is used in job begin to recreate the cloned template FDEs. In the original cloning 
process, copies of the FDES were made. During LOGIN of Subsequent jobs, it is nmecessary to recreate 
the identical FDES with the same hash and index. 


Most fields in the newly assigned FDE are set to the same value as in the original FDE. 
The MEDIA is reset to transient segment and EOI is set to zero. 


GFPSREASSIGN_FDE (SFID, OLD _FDE_ P) 


SFID: (INPUT) This parameter specifies the SFID of the entry to be created. 
& system error occurs if the entry is already in use. 

OLD_FDE_P: (INPUT) This parameter is a pointer to a copy of the FDE in the 
cloned template. 


PROCEDURE [XDCL] gfp$reassign_fde 
( sfid: gft$system_file_identifier ; 
Old_fde_p: gft$file_desc_entry_p); 


VAR 
control_p: Agft$file_ descriptor _control, 
fde_p: gft$file_desc_entry_p, 
ignore status: ost$status; 


Get a pointer to the control structures for the job FDEs. 
control _p := #ADDRESS (1, osc$segnum_job_fixed_ heap, gfc$fde_control_table_base) ; 
Validate the SFID. (Note: code doesn’t currently set levelil or level2 indexes as INUSE so don’t allow 
file _entry_index > 62). 
IF (sfid.residence <> gfc$tr_job) OR (sfid.filte_ entry index > 62) THEN 
osp$system_error (’GF - invalid SFID on recreate’, NIL); 
IFEND ; 
Mark the entry as ‘INUSE’ and restore the FDE data. 
control _pA.in_use bits [sfid.file_entry_ index] := TRUE; 
fde_p := #ADDRESS (1, #SEGMENT [(control_p), gfc$fde_table_base + gfc$fde_size * sfid.file_entry_index) ; 
Initialize the tabie entry with the default FDE value. 
fde_ pA := old fde_ pA; 
fde pA.media := gfc$fm_transient segment ; 
fde_pA.eoi_byte address := 06; 


fde_pArA.asti := 0; 
IF fde_pA.file kind = gfc$fk_job_local_file THEN 


PAGE 


PAGE 


13 


14 


SOURCE LIST OF gfm$file_table_ manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 15 
[XDCL] gfp$reassign_fde 
A2 2945 mmpS$assign_mass_storage (0, sfid, ©, ignore status); 
C& 2946 IFEND; 
C&é 2947 
C6 2948 PROCEND gfp$reassign_fde; 
o 2949 
o 2951 
© 2852 MODEND gfm$file table manager 
*x*x* 12$05578173AS0102019890821T183254 L=ZZXXLIST B=LGO DA=NONE LOR RC=NONE OPT=SCHED EL=F LF=CS612 PAD=0 
***x NO DIAGNOSTICS 
REFERENCES OF gfm$file table manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 16 
IDENT TLE LE Rssscnis s:6o ee seer ecere ee sie es DEF ENED S\s:st9 o syeie sere Some se REFERENCES 
ON LINE 
actual value 712 722 
actual value 2332 2404 2412 
actual value 2678 2710 2710 
actual value 2678 2767 
actual value 2787 2842 2842 
actual value 2787 2868 
address _to_free 2517 2600/M 
address to_free 2787 2865/M 
amc$cell_pointer 598 602 
amc$file_ byte limit 185 188 190 
amc$heap_pointer 598 604 
amc$sequence_ pointer 599 606 
amt$file_byte_address 188 149 
amt$file limit 180 153 
amt$pointer_kind 598 583 601 
amt$segment_pointer 600 591 
asti 148 2813 2943/M 
b64 2518 2580 2581/P 
p64 2787 2865 2865/P 
bit 2512 2581 
bit 2626 2645 
bit 2678 2715 2727 2728 
bit 2787 2865 
hool64 74 62 63 656 2518 2615 
cnv 630 748/M 748 
cnv 2154 2166/M 2167 
cnv 2380 2411/M 2411 
cnv 2678 2710/M 2710 2767/M 2767 
cnv 2787 2842/M 2842 2868/M 2868 
code 630 748 
code 2149 2165 
code 2187 748/M 2165/M 2411/M 2710/M 2767/M 2842/M 2868/M 
code 2380 2411 
code 2678 2710 2767 
code 2787 2842 2868 
control op 2513 2549 2600 
control op 2685 2705/M 2710/P 2715/P 2727/P 2728/P 2735/M 2737 2733/M 
2740 2742/M 2757 2767/P 
control op 2787 2865 2865 
control_op 2791 2837/M 2842/P 2848/M 2849/M 2850/M 2863 2865/P 2868/P 
control op 2914 2821/M 2934/M 2935 
cs_status 714 723 724 725 
cs_status 2393 2404 2405 2406 
cs_status 2678 2710 2710 2710 
cs_status 2678 2767 2767 2767 
cs_status 2787 2842 2842 2842 
cs_status 2787 2868 2868 2868 
cycle task 690 748/M 748/M 748/M 748/M 748/M 748/P 748/P 
cycie_ task 2162 2164/M 2165/M 2167/M 2168/M 2169/M 2170/P 2170/P 
cycle task 2380 2411/M 2411/M 2411/M 2411/M 2411/M 2411/P 2411/P 
cycle task 2678 2710/M 2710/M 2710/M 2710/M 2710/M 2710/P 2710/P 2767/M 
xe REFERENCE ABBREVIATIONS Msmodify, Asattribute, S:subscript, I:1/0 ref, Reread, W:write, P*parameter 


REFERENCES OF gfm$file_table_manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 17 
TDENTIF LER @ +:3:4's ees 6 eine mon “DEFINED? +32 < = ss 4 se >= 26 REFERENCES 
ON LINE 
2767/M 2767/M 2767/™M 2767/M 2767/P 2767/P 
cycte task 2787 2842/M 2842/M 2842/M 2842/M | 2842/M 2842/P 2842/P 2868/M 
2868/M 2868/M 2868/M 2868/M 2868/P 2868/P 
end_page 2519 2593/M 2594/M 2594 2596 
end page 2787 2865/M 2865/M 2865 2865 
eoi_byte_address 149 2942/M 
fde_p 2682 2722/M 2757/M 2762/M 2763/M 2764 
fde_p 2788 2803 2803 2806 2807 2810 2813 2820 2830 
2837 2857/M 
fde_p 2915 2935/M 2940/M 2941/M 2942/M 2943/M 2944 
_file_entry_ index 520 2751/M 2327 2934/58 2935 
file _entry_ index 2686 2750/M 2751 2757 
file hash 146 2763/M 2764 2857/M 
file hash 522 2764/M 
file kind 145 2944 
find _zero_ bit 2614 2581 2650 2715 2727 2728 2865 
find zero bit 2615 2581/M 2648/M 2715/M 2727/M 2728/M 2865/M 
_first_fde_index_to_free 2520 2563/M 2590 
first_fde_index_to_free 2787 2865 /M 2865 
free _ unused pages 2512 2604 2865 
free word index 2514 2550 2551/P 2571 2572/P 
free word index 2787 2865 2865/P 2865 2865/P 
agfc$fde_ control _table_base 52 2705 2837 2921 
_gfcS$fde_ size 53 2539 2590 2533 2757 2806 2807 2820 2865 
- 2865 2865 2882 2935 
agfc$fde_ table base 51 52 2600 2757 2806 2807 2820 2865 29335 
gfc$fk_catalog 225 237 
gQfcS$fk_job_local_file 227 . 236 2944 
gfc$fk_unnamed_file 228 2456 
gfcS$fm_mass_storage_ file 240 162 
gfc$fm_served_ file 241 165 
‘gfc$fm_transient_segment 240 2471 2941 
gfc$max_level_1_index 77 63 
igfc$max_ level 2 _bit_index 78 68 
&)fc$max_level_2_ index 78 66 70 2532 
-gfe$null_file_hash 526 2857 
afc$qs_job_working: set 281 2465 
gfc$tr_job 530 2697 2755 2927 
“gfce$tr_system 530 2699 2752 2753 
gfpS$assign_fde 2678 2769 
gfp$free_ fde 2787 2870 
gfpSinitialize 2880 2886 
gfp$reassign_fde 2309 23948 
gft$allocation_unit_size 196 151 
gftSattach_ count 201 142 143 
‘gft$fde_ flags 1714 138 
gft$file_ desc_entry_p 515 2682 2788 2911 2915 
gftS$Ffile_descriptor_contro} 60 2513 2685 2791 2914 ! 
aftSfile descriptor _entry 136 141 515 2446 2446 2882 
QftS$file_descriptor_index 210 520 2520 2521 2686 27393 
ES REFERENCE ABBREVIATIONS Msmodify, Atattribute, S=subscript, ItI/0O ref, R=read, Wewrite, Psparameter 


REFERENCES OF gfm$file_table_manager NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 18 
IDENTIFIER---------- eee cee eee DEFINED----+-<-2-e-+e%e-% REFERENCES 
ON LINE 

‘gftS$file_kind 221 145 233 

gftS$file_ media 240 161 

gft$open_count 270 144 286 

gftS$queve status 281 154 

aftS$segment_lock_info 285 147 

mftSsignature lock 246 137 

gftS$system_file_identifier 519 535 817 1231 1433 2681 2310 

gft$table residence 530 521 2679 

gft$transfer_unit_size 207 152 

gtobal_task_id 778 718 2397 2710 2767 2842 2868 

high _bit_index 2524 2577/M 2581/M 2583 

high_bit_index 2787 2865/M 2865/M 2865 

high_word_ index 2525 2571/M 2573 2573/S 2573 2573/S 2574/M 2574 2576 
2579/S 2583 

high word index 2787 2865/M 2865 2865/S 2865/M 2865 2865 2865/s 2865 
2865/S 2865 

i 690 748/M 

i 2157 2166/M 

‘i 2380 2411/M 

a 2480 2483 2484 

i 2493 2436 2497 

i 2512 2551 2551 

i 2512 2572 2572 

i 2678 2710/M 2767/M 

i 2787 2842/M 2868/M 

i 2787 2865 2865 

7 2787 2865 2865 

i 2793 2820/M 2821 2822/M 2822 2823 2824/M 2824 2825 

i#cali monitor 2181 748 2170 2411 2710 2767 2842 2868 

-ignore status 2916 2945/P 

in_use 66 2548 2728/P 2735/M 2737 2848/M 2863 2865 

in_use_bits 68 2834/M 

index 257 718 2398 2710 2767 2842 2868 

‘index! 62 2715/P 2742/M 2850/M 

index2 63 2727/P 2739 /M 2740 284a39/M 

initial fde_ entry 2446 2762 

initial value 713 719/M 722 

“initial_value 2678 2767/M 2767 

initial value 2787 2868/M 2868 

amt 2512 2581 2581 2581 

“int 2512 2581 

int 2618 2634 2635 2643 

int 2623 2644 

int 2678 2715 2715 2715 2727 2727 2727 2728 2728 
2728 

int 2678 2715 2727 2728 

int 2787 2865 2865 2865 

Jinmt 2787 2865 

int 2794 2806/M 2807 2807 2807 2863 2864 

iot$transfer_count 1521 1509 


**%* REFERENCE ABBREVIATIONS Msmodify, Aztattribute, S=subscript, I:1/0 ref, R:tread, W:write, P:parameter 


REFERENCES OF 


IDENTIFIER 2S ee _—e ew ee © © ee ew ew 


a ee oe ee ee 


imc$highest_prio_age_ interval 


jmc$highest_service_accumulator 


jmc$highest_service_factor_val 
jmc$keyword offset maximum 
jmc$k jl_maximum_entries 
imc$kol_maximum_entries 
jmc$max_active_jobs 
jmc$max_ajl_ord 

jmc$max_ dispatching control 
jmc$max dispatching priority 
jmc$maximum_job_count 
jmc$maximum_output_count 
jmc$maximum_service_ classes 
jmc$min_dispatching control 
jmc$null_service_cilass 
jime$priority_ aging _intervai_ma 
jmc$priority_p1 
jmc$priority p10 
imc$priority p14 
jmc$priority_p8 
jmc$reserved_ ajis 

jmc$service accumulator _maximu 
jmec$service_factor_value_max 
imc$system_default_offset 
imcSunlimited_ offset 
imt$dispatching control 
jmt$dispatching control_index 
jmt$dispatching controls 
jmt$dispatching_ priority 

jimt$ job priority 
jmt$maximum_active_ jobs 
jmt$priority_aging interval 
imt$scheduling priority 
imt$service accumulator 
jmt$service_class_ index 
imt$service_ class_name 
jmt$service_factor_ value 
jmt$service_factors 
jmt$task_time_slice 
jmt$time_slice_ values 
job_tock 


last_fde_ index to_ free 
last_fde_index to_free 
levell 


leveli 


ees 


REFERENCES OF 


IDENTIFIER---------- eae e cee eee 


level2 
level2 
lock 
lock 
lock 
leck 
lock 
lock 
lock 
lock_id 


lock_ loop 
lock, loop 
lock_ loop 

lock value 
locked 

low_bit index 
low_bit_ index 
low _word_ index 


low word index 


max 
max 

max _words to search 

max words to search 

media 

min 

min 

mmc$assign_active_nul 
mmc$celi_pointer 
mmc$eoi_actual 
mmc$heap_pointer 

mmc$kw_asid 
mmc$kw_clear_space 

mmc$kw_ current _segment_length 
mmc$kw_error_exit_procedure 
mmc$kw_gi_key 
mmc$kw_hardware_attributes 
mmc$kw_ inheritance 
mmnc$kw_ max _segment_length 
mmc$kw preset value 
mmc$kw_ ops _transfer_size 
mmc$kw_ ring numbers 
mmc$kw_segment_access_ control 


mmc$kw_segment_number 


mmc$kw_shadow_segment 
mmc$kw software attributes 
mmc$kw_wired_ segment 
mmc$segment_fault_processor_id 
mmc$sequence_ pointer 


mmc$ssk_none 


RX 


gfm$file table _manager 


gfm$file_tablie_manager 


NOS/VE CYBIL/II 1.0 89162 
DEFINED--c----- ececre-=-REFERENCES 
ON LINE 
2481 2483 2486 
2494 2496 24399 
2812 2551 2551 
2512 2572 2572 
2787 2865 2865 
2787 2865 2865 
1062 1053 1063 
1094 1095 
u 1146 1139 
1079 1054 
1027 1020 1021 
1037 1022 
1018 1005 1913 
1019 1018 
$63 967 
864 824 827 
1034 1027 
1044 1037 
1112 1115 
962 3966 
1105 1106 
x 1053 1050 
878 825 
887 826 
891 826 
885 625 
1023 1018 
m 1086 1083 
1139 1136 
1078 1079 
1075 1064 1096 
$33 916 
$66 933 
$36 934 
824 7893 791 
$94 $25 926 
1005 910 
1050 918 
$24 917 
1083 $08 909 
1115 901 911 
1118 $03 904 
1136 $12 
114132 $12 
$76 S56 957 
955 &O2 940 
137 2810 
2521 2583/M 25933 
2787 2865/M 2865 
2687 2715/M 2721 
2742/8 2750 
2795 2825/M 2848/5 
REFERENCE ABBREVIATIONS Memodify, 


NOS/VE CYBIL/II 
DEFINED------+- cee eee eee REFERENCES 
ON LINE 

2688 2727/M 
2796 2823/M 
61 ° 2710/P 
691 722 
2381 2404 
2678 2710 
2678 2767 
2787 2842 
2787 2868 
90 722 
2767 
2400 2400 
2678 2710 
2787 2842 
21390 748/M 
247 2810 
2522 2555/M 
2787 2865/M 
2523 2550/M 
2557/8 
2787 2865/M 
2865/S 
2479 2489 
2481 2484/M 
2526 2539/M 
2787 2865/M 
161 2941/M 
2432 2502 
24934 2497/M 
1271 1272 
1370 1375 
312 2461 
1371 1379 
1296 1332 
1294 1319 
1293 1313 
1295 1323 
1295 1317 
1297 1326 
1297 1334 
1294 1315 
1296 1321 
1298 1342 
1292 1308 
1296 1330 
1233 1311 
1298 1336 
1295 1328 
1298 1338 
1864 1818 
1370 1377 
1465 1437 


REFERENCE ABBREVIATIONS 


1.0 88102 


2728/58 
2848/5 
2767/P 
748/P 
2411/P 
2710/P 
2767/P 
2842/P 
2868/P 
748 
2842 
2415 
2710 
2842 
2169/M 


2560/M 
2865/M 
2552 
2563 
2865 
2865 


2551 

2486/M 
2551/P 
2865/P 


2572 
24399/M 


1014 


828 


$38 
$27 


2727/8 


2849/5 


Azattribute, 


2735/8 
2849/58 
2842/P 


21698 
2842 


2411/M 


2560 
2865 
2552/58 


2865/5 


2865 

2551/M 
2572/P 
2865/P 


2865 
2572/M 


$28 


2728/8 


2850/S 


Sztsubscript, 


2737/8 
2863/5 
2868/P 


2404 
2868 


2710/M 


2865/M 


2551/M 


2572/M 


1989-08-21 13:33:34 PAGE 198 
2735/8 2737/8 2739/5 "2740/8 
2863/5 2865/P 
It1/O ref, Reread, Wewrite, Psparameter 


2739/5 
2865/P 


2411 
2868 


2767/M 


2552/S 


2865 


2865/M 


2865/M 


1989-08-21 


2750 


2710 


2842/M 


2553/M 


2865 


2865/M 


2865/M 


13:33:34 PAGE 20 
2710 2767 
2868/M 
2553 2556 
2865/Ss 2865 


Memodify, Asattribute, Stsubscript, IsI/O0 ref, R*read, Wewrite, P2parameter 


REFERENCES OF gfm$file_table_m 


_ IDENTIFIER----- Sate ele lee eee tele D 
0 
mmc$ssk_segment_ number 
mmp$assign_mass_storage 
mmt$access_ selections 
mmt$ast_ index 
mmtSattribute_ keyword 
mmt$eoi_ state 
mmt$hardware_attribute_ set 
mmt$hardware_ attributes 
mmt$ lock _ segment _ status 
mmt $max_sdt 
mmt $max_sdt x 
mmt$sdtx stream_data 
mmt$segment_access_ condition 
mmt$segment_access rights 
mmt$segment_access_ state 
mmt$segment_ descriptor 
mmt$segment_ descriptor _extended 
mmt$segment_inheritance 
mmt$segment_pointer_kind 
mmt$segment _reservat ion_state 
mmt $shadow_info 
mmt$shadow_reference_info 
mmt$shadow_segment_kind 
mmtS$software attribute _set 
mmt$software attributes 
mmt$xcb page wait_info 
mttS$monitor inter lock 


nat$received message descriptor 
nat$received_ message list 
new value 

new value 

new_value 

Mmic$ce_ connect _confirm 
nic$cc_connect_ request 
nic$cc_expedited data 
nic$cc_max_pdu_kind 
‘nic$channel_connect ion_pdu 
nic$channelnet_pdu 
nit$cc_pdu_kind 
nit$cc_seq#_or_connect_time 
nit$cc_sequence_number 
nit$device_identifier 
nit$Spdu_type 


old_fde_p 

open_count 
osc$calil_instruction 

oesc$cs_ successful 

esc$cs variable_locked 
osc$cyber_180_model_unknown 
-osc$data_read 

osc$free_running clock_maximum 


x** 


REFERENCES OF 


IPENTIF TERS 268 este seh ee See eer D 
0 
osc$invalid_ring 
osc$max_fault_ contents 
osc$max_name_size 
osc$max_page_ size 
osc$max_ring 
osc$max_segment_length 
osc$max_status_condit ion_code 
esc$max_ string size 
osc$max_ tasks 
osc$maximum_offset 
osc$maximum_processor_id 
osc$maximum segment 
osc$min_page_ size 
osc$min_ring 
osc$pr_base constant 
osc$segnum_job_fixed_ heap 
esc$segnum_mainframe_wired 
osc$task_time_slice_maximum 
osp$c lear _mainframe_sig_lock 
osp$fatal_system_error 
osp$mfh_for_segment manager 
osp$set_mainframe_sig_ lock 
osp$system_error 


ost$asid 
oest$binary_unique_name 
ost$byte_ count 
ost$cp_time 
ost$cp_time_value 
ost$cs_ lock 

ost$debug_ code 
ost$debug_list 
ost$debug list _entry 
ost$debug_ mask 
ost$exchange_ package 
ost$execute_ privilege 
est$execut ion_control block 
ostS$filags 
ost$frame_descriptor 
ost$free running clock 
ost$global_task_id 
ost$key_ lock 
ost$key lock value 
ost$keypoint_ciass 
ost$keypoint_mask 
ost$minimum_save_area 
est$monitor_ condition 
ost$monitor_ conditions 
ostS$monitor fault 
ost$monitor_fault_contents 
ost $name 
ost$p_register 
ost$page_size 


*e* 


gfm$file_table manager 


anager NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 21 
EFINED--------- eee ee REFERENCES 
N LINE 
1466 1435 
$33 2945 
614 590 
303 148 1165 
1292 1307 
312 150 
1361 1327 
1349 1361 
1445 1236 
1175 11793 
1260 1264 
1243 1239 
1891 1919 
1409 1235 
1415 1230 
1162 1172 1176 
1228 1257 1261 
1278 1232 1335 
1370 1374 
1455 1233 
1430 1237 
1478 815 
1465 1434 
1363 1234 1329 
1357 1363 
1489 801 
319 138 
1505 1498 1507 
1497 783 
2391 2398/M 2404 2412 
2678 2710/M 2710 2710 
2787 2842/M 2842 2842 
1537 1528 
1536 1526 
1542 1528 
1544 1547 
1560 1512 
1560 1514 
1547 1525 
1524 1513 
1550 1529 
1557 1508 
1560 1511 
2911 2340 
144 2830 
1755 1763 
122 725 2406 2710 2767 2842 2868 
124 724 2405 2710 2767 2842 2868 
&22 2451 
1754 1763 
505 502 
REFERENCE ABBREVIATIONS M=modify, Azattribute, S:subscript, I:1/0 ref, R=read, Wtwrite, Pzparameter 
NOS/VE CYBIL/II 1.0 89102 1988-08-21 13:33:34 PAGE 22 
EFINED-~----*--+-*-+e+e%e>e REFERENCES 
N LINE 
340 380 
1931 1925 
1122 1126 1129 
493 4gas 
339 380 381 
363 386 1240 1271 
558 554 570 
574 577 580 585 
265 262 
362 363 383 383 384 
1803 1739 
361 382 
4392 489 
3368 381 
2334 717 2396 2710 2767 2842 2868 
6693 716 2395 2698 2710 2767 2842 2868 2921 
666 2700 
987 $30 
630 757 2767 2868 
2378 2883 
759 744 2767 2868 
2380 2423 2710 2842 
2371 726 732 2413 2710 2767 2767 2804 2808 
2811 2814 2831 2842 2868 2868 2928 
639 635 1196 1333 
401 140 
629 618 
1583 800 
1591 813 1594 1595 
&8& 781 
1754 1742 
1750 1654 
1741 1750 
1760 1653 
1603 768 
1208 1191 1204 
767 711 733 2390 2797 
1660 1610 
1718 1733 
502 156 739 939 
256 158 2493 710 778 779 1815 2018 2389 
369 1197 1318 
375 372 1677 1679 
1692 1623 1694 
1694 1626 
1728 1615 1703 1912 
1564 1571 
1571 1616 1620 1708 1887 2001 
1308 1857 
1925 1921 
1128 902 1118 18950 
1675 1604 1729 1979 1985 
489 470 2429 
REFERENCE ABBREVIATIONS Memodify, Atattribute, Stsubscript, It1/0 ref, Reread, W:write, P:parameter 


REFERENCES OF gfm$file_table_manager 


IDENTIFIER---- re nent erence ee DEFINED 

ON LINE 
ost$paging statistics 1781 
eost$processor_id 1789 
ost$processor_id_set 1793 
ost$processor_ model_number 419 
ost$processor serial_number 497 


ost$pva 391 


ost$read_privi lege 1212 
ost$register_ number 1671 
est$ring 380 
ost$ringi_terminat ion_reason 1811 
ost$segment 382 
ost$segment_access_ control 1202 
ost$segment descriptor 1189 
ost$segment_ length 386 
ost$segment_offset 383 


ost$signature_ lock 89 


ost$stack_frame_save_area 1702 
ost$status 542 
ost$status condition 566 
est$status condition_code 570 
eost$string 583 
ost$string size 577 
ost$system_flag 2086 
ost$task_index 262 
ost$task_time_slice 930 
ost$top_of stack_pointer 1663 
ostS$trap_ enable 1697 
ostS$user condition 1574 
ost$user_ conditions 1581 
ost$valid_relative_ pointer 389 


ost$valid_ring 381 


ost$virtual _machine_identifier 1685 
ost$wait 656 
ost$write_ privilege 1215 
eost$x_ register 1672 
osv$page_size 2429 
p 690 
p 630 
Pp 2150 
Pp 2160 
p 2380 
p 2380 
p 2678 
Pp 2678 
p 2787 
p 2787 
pi 2188 
p2 2189 
pages _to_free 2527 


eK 
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IDENTIFIER----r eee reece rere ee DEFINED 

ON LINE 
pages _to_ free 2787 
pmc$initialize to_zero 503 
pmc$kill_task_ flag 2086 
pmc$max_signal_contents 20698 
pmc$max_ task_id 1824 
pmt$condition_identifier 1898 
pmt$cpu_model_ number 479 
pmt$cpu_serial_number 4&2 
pmtSinitialization_value 509 
pmt$signal 2025 
pmt$signal_ contents 2063 
pmt$signal_id 2030 
pmt$task_id 1821 
r 2512 
r 2619 
r 2678 
r 2787 
reqcode 2186 
residence 521 
residence 2679 
s64 2512 
s64 2615 
s64 2678 
s&64 2787 
seg 2689 
segment _ number 2680 
seqno 258 
sfid 2681 
sfid 2910 
sft$file space _limit_kind 1474 
start_page 2528 
start page 2787 
stic_allocation 776 
stop 2530 
Stop 2787 
syc$re cycie 2231 
syc$ucr_condition 1936 
syc$user_defined condition 1937 
Syp$cycle_ for_ lock 2149 
system _give_up_cpu 786 
system _table_ lock _ count 781 
Syt$monitor flag 1843 
syt$monitor flags 1828 
Syt$monitor request code 2214 
task_id 710 
task_id 2389 
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REFERENCE ABBREVIATIONS 


REFERENCES 


2865/M 
2466 


2581/M 
2643/M 
2715/M 
2865/M 
748/™M 
2753/M 
2637 


2581 


2767 
2868 
1828 

769 
2186 


718/M 
2397/M 


> Memodify, 


1.0 88102 
REFERENCES 
808 
771 1783 
770 
403 
402 
1648 1666 
1192 1205 
1645 1714 
392 1194 
804 
157 393 
2689 
1331 
1163 
536 1314 
394 636 
61 691 
1736 1945 
537 592 
2916 
2204 
S45 S66 
546 
584 
2082 
257 296 
376 
1655 
1612 1976 
1581 
1614 1618 
163 166 
1655 
1606 1608 
620 
1193 1206 
1645 1714 
2539 2591 
2865 2865 
748 748 
748 
2168 2169 
2167 
2411 2411 
2411 
2710 2710 
2710 2767 
2842 2842 
2842 2868 
748/M 2167/M 
748/M 2168/M 
2596/M 2599 
Mzmodify, 


1.0 883102 


2865 


475 
474 
1322 


1816 


2581 
2644 
2715 
2865 
2164/M 
2755/M 
2699 


2727 
2700/M 


720 
2842 
2753/M 
2927 


2591/M 
2865/M 
7423/M 
2552 
2865 
2164 


2171 
2767 
737/M 
2710/M 
2767 
2868 


718 
2398 


1680 


1722 
11935 


534 


1316 
1244 
2150 


621 


237 


1706 
737 


1730 


2591 


2767 
2868 


2411/M 
2411/™M 


Azattribute, 


2727/M 


2411/M 
2927 
2752 


2728 
2702/M 


2398 
2868 
2755/M 
2334/S 


2591 
2865 
2767 
2552 
2865 
2411 


2411 
2868 
737 
2710 
2842/M 
2868 


713 
23388 


Azattribute, 


1909 


1723 
12293 


1312 


1338 
1745 
2381 


1325 


1735 
738 


2594 


2767 
2868 


2710/M 
2710/M 


S=subscript, 


2727 


2710/M 


2705 


2398 
2868 
2764/M 
2935 


2596 
2865 
2767/M 
2556 
2865 
2710 


2710 
742 


2710/M 
2842 


719 
2398 


S=subscript, 
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2002 
1724 
1309 1310 1665 
1436 1643 1744 2680 
1340 1343 
1747 
1980 2372 23793 2525 
1948 1988 
2600 2865 2865 2865 
2767/M 2842/M 2868/M 
2767/M 2842/M 2868/M 
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2728/M 


2767/M 


2710 


2945/P 


2600 
2865 
2868 
2572/M 
2865/M 
2767 


2767 
747 


2710 
2842/M 


1=1/0 ref, 


1989-08-21 


2728 


2842/M 


2710 


2868/M 


2842 


2402/M 
2767 
2842 
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2868/M 
2767 2767 
2573 2576 
2865 2865 
2868 
2868 
2402 2410/M 
2767/M 2767 
2868 2868/M 
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P=eparameter 


REFERENCES OF 


ss se @ 
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task_id 

task id 

task_id 

task_id 
tmc$broken_task_fault_id 
tme$btc_invalid_ao 
tmc$btc_invalid_p 
tmce$btc_mcr_traps_ disabled 
zmc$btc_mf_ traps _ disabled 
tme$btc mntr_fault_buffer_full 
tmc$btc_system_error 
tmc$btc_ucr_traps_disablied 
‘tmce$cyc_clear_sys_ lock 
“tme$cyc_set_sys_ lock 
tmc$cycie_reason 
tmcS$dummy_ fault 

tmcoS$flag available 31 
tmc$maximum_monitor faults 
tmc$maximum_ signals 
tmc$maximum_system_task_id 
‘tmce$mer_fauilt 
tmc$signal_avai labile 63 
tmce$stid_null_task 
tmt$broken_task_condition 
tmt$broken_task_monitor fault 
tmt$mer_fauits 
tmtS$monitor_fault_buffer 
“tmtS$monitor_ fault buffers 
tmtS$monitor_fault_identifiers 
tmt$rb cycie 

tmt$signal 

tmt$signal_ buffer 
tmt$signal_buffers 
tmtS$system_flags 
'tmt$system_task_id 
tmt$task_queue_ link 

trick 

trick 

trick 

trick 

trick _int 


word 
rorad 


words p 
words p 


xcb_p 


xcb_p 


‘xceb_p 
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IDENTIFIER-------------------- 


‘xcb_p 


xcb op 
xcb op 


‘zero bit 
‘zero bit 
zero _ bit 


‘gero_bit 


zimuse 
zinuse 


SEX 


gfm$file table 


ofm$file_table_ 


manager 


DEFINED 
ON LINE 
2678 
2678 
2787 
2787 
1864 
1962 
1962 
1963 
1962 
1961 
1964 
1963 
2194 
2194 
2193 
1865 
2099 
1869 
2079 
2112 
1864 
2061 
2118 
1961 
1975 
2000 
1854 
1860 
1863 
2185 
2017 
2009 
2076 
2082 
2115 
295 
2512 
2620 
2678 
2787 
2690 


2831 
2787 


2532 
2787 


711 


2390 
2678 
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DEFINED 
GN LINE 
2678 


2787 
2787 


2512 
2629 
2678 


2787 
2691 
2798 
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REFERENCES 
2710/M 2710 
2767/M 2767 
2842/M 2842 
2868/M 2868 
1914 
1983 
1983 
1984 
18382 
1982 
1978 
18384 

748/P 2767/P 
2411/P 2710/P 
2149 2187 
1920 
2103 
1860 
2076 
2115 
1916 
2972 
2115 
1977 
1915 
1917 

806 
1855 1856 
1913 1989S 
2162 
2012 

807 
2010 2011 

T82 

7173 

288 
2581 2581 
2644 2645 
2715 2715 
2865 2865 
2737 2738 
2557/M 2558 
2580 
2865/M 2865 
2865 
25439/M 2552 
2865/M 2865 

716/M 718 

747 747 
2395/M 23397 
2710/M 2710 

Memodify, Azattr 
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REFERENCES 


2767/M 
2767 
2842/™M 
2868/M 
2868 


2581/M 
2636/M 
2715/M 
2728 

2865/M 
2728/M 
2821/M 


1.0 89102 


1.09 89102 


2767 
2767 
2642 
2868 
2868 


2581/M 
2645/M 
2715/M 


2865/M 
2735/S 
2848/S 


2710 
2767 
2842 
2868 


2868/P 
2842/P 


1857 


2012 


2727 
2780 
2558 
2865 


2552 
2865 


731 


2402/M 
2710/M 


ibute, 


2767 


2842/M 
2868 


2581 
2648 
2715 


2865 
2750 


2710 
2767 
2842 
2868 


2727 
2741 
2558 
2865/M 


2557 
2865 


737/™M 


2402 
2710 


S=:subscript, 


2767/M 


2842 
2868/M 


2727/M 
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2558 2553/M 25593 2579 /™ 
2865 2865 2865 2865/M 
2572/P 2573 2573 2579 
2865/P 2865 2865 2865 
737 742 742 743/M 
2410/M 2410 
2710/M 2710 
I:1/O ref, Rtread, Wtwrite, P=parameter 


2767 


2842/M 
2868 


2727/™M 


1989-08-21 


2767 


2842 
2868 


2727 
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NOS/VE Job Management job scheduler monitor mode 


3 MODULE jmm$job_scheduler_ monitor mode; 
4 


SOURCE LIST OF jmm$ job_scheduler_monitor_ mode NOS/VE CYBIL/II 


HOS/VE Job Management 
Global 


job scheduler monitor mode 
Declarations Referenced by This Module 


6 {Pointer to the AJL. } 


1.0 891902 1989-08-21 


1.0 88102 198S-08-21 


into long wait should be 


is notified of thrashing 
Setting the variable will cause the 
instead of swapping out the job. 


[ jmt$dispatching priority] of integer; 


7 VAR 
8 jmv$aji_p: [XREF] Ajmt$active_job_list; 
° 1144 {Define pointer to Initiated Job List (IJL). 
o 1145 
ce] 1146 VAR 
o 1147 jmv$ijl_p: [XREF] jmt$iji_p; 
1175 
1176 VAR 
1177 jmv$max_ajl_ordinal_in_use: [XREF] jmt$ajil_ordinal; 
1178 
1173 
° 1182 
° 1183 VAR 
o 1184 imv$number_free_ajl_entries: [XREF] integer ; 
° 1185 {Define boolean that specifies whether jobs that go 
° 1186 {swapped immediately. 
° 1187 
. Oo 1188 VAR 
o 1189 imv$swap_jobs_in_long_ wait: [XREF] boolean; 
0° 1180 
° 1181 {Define value of AJL ORDINAL used by the system job 
° 1182 
° 1193 VAR 
° 1194 imv$system_aji_ordinal: [XREF] jmt$aj1l_ordinal; 
° 1195 
1188 VAR 
1199 imv$system_ijl_ordinal: [XREF] jmt$ijl_ordinal; 
1200 
° 1203 VAR 
o 1204 isv$ijl_swap_queve_ list: [XREF] jst$ijl_swap_queve_list; 
fe] 1205 
1223 
1224 { This variable is set to TRUE by monitor mode scheduler when it 
1225 { (low memory) and there is only one job active. 
1226 { job’‘s working set to be reduced. This is done 
1227 
1228 VAR 
1229 mmv$reduce_jws_for_ thrashing: [XREF] boolean; 
1230 
1231 
1232 VAR 
1233 tmv$cpu_execution statistics: [XREF] tmt$cpu_execution_ statistics; 
1234 
° 1242 
° 1243 VAR 
° 1244 tmv$dispatch_priority integer: [XREF] ARRAY 
° 1245 
° 1246 VAR 
o 1247 tmv$dispatching controis: [XREF] tmt$dispatching controls; 
© 1248 
1279 
12806 VAR 
1281 tmv$dispatching control sets: [XREF] tmt$dispatching control sets; 
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SOURCE 


NOS/VE 
Global 


SGURCE 


NOS/VE 
Giobal 
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Job Management job scheduier monitor mode 
Declarations Referenced by This Module 
° 1300 
° 1301 VAR 
Oo 1302 tmv$dispatching_ coentrol_time: [XREF] tmt$dispatching prio_controls; 
© 1303 
1306 VAR 
1307 tmv$ptl_lock: [XREF] tmt$pt1_lock; 
© 1322 
o 1323 PROCEDURE [inline] jmp$get_ijle_p (ijl_ordinal: jmt$ijl_ordinai; 
° 1324 VAR ijle_p: AjmtS$initiated_job_list_entry); 
3° 1325 
1333 
1334 PROCEDURE [XREF] jmp$calculate_service 
1335 ( ijle_p: AjmtS$initiated_job_list_entry; 
1336 VAR service _used: integer); 
1337 
° 1340 
° 1341 { PURPOSE: 
© 1342 { This is the monitor mode procedure to change the entry status of a job. The caller 
° 1343 { of procedure must set the PTL lock if the entry status change is a SWAPPED/NOT SWAPPED 
° 1344 { transition because the swapped job counts will be changed. 
3° 1345 
° 1346 PROCEDURE [INLINE] jmp$change_ij1l_entry_status 
© 1347 ( ijle_p: AjmtS$initiated_job_list_entry; 
Oo 1348 new _entry status: jmt$ijl_entry_status) ; 
° 13493 
° 1350 VAR 
© 1351 old_entry_ status: jmt$ijl_entry_status; 
° 1352 
oO 1353 old_entry_ status := ijle_pA.entry_ status; 
° 1354 
° 1355 jmvS$ijl_entry_status_statistics [old_entry_ status] [new_entry_status] :: 
° 1356 jmv$ijl_entry_ status statistics [old_entry status] [new_entry status] + 1; 
° 1357 
° 1358 ijle_ pA.entry status := new_entry status; 
° 1359 
o 1360 IF (old_entry status <= jmc$ies_swapin_in_progress) AND 
Oo 1361 (new entry status > jmc$ies_Sswapin_in_progress) THEN 
° 1362 jmp$increment_swapped_job_count (ijle_p); 
° 1363 
oO 1364 ELSEIF (old _entry_status >» jmc$ies_ Sswapin_in_progress) AND 
° 1365 (new _entry status <= jmc$ies swapin_in_progress) THEN 
oO 1366 jmp$decrement_swapped_job_count (ijie_p); 
¢] 1367 IFEND; 
° 1368 
o 1369 PROCEND jmp$change_ijl_entry_ status; 
° 1370 PROCEDURE [XREF] jmp$find_jsn (jsnm: string (* <= jmc$system_supplied_name_size) ; 
°O 1371 VAR itjle_p: Ajmt$initiated job_list_entry; 
© 1372 VAR ijlo: jmt$ijl_ordinal); 
re) 1373 
1376 PROCEDURE [XREF] jsp$monitor_advance_swap (ijl_ordinal: jmt$ijl_ordinal); 
1377 
© 1380 PROCEDURE [XREF] jsp$monitor_swap_in (ijl_ordinal: jmt$ijil_ordina}l); 
fe) 1381 
1384 PROCEDURE [XREF} jsp$monitor_swap_out (ijl_ordinal: jmt$ijl_ordinal) ; 
1385 
LIST OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 
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° 1388 
re) 1389 PROCEDURE [XREF] jsp$relink_swap_queue (ijl_ordina}l: jmt$ijl_ordinal; 
° 13990 ijle_p: Ajmt$initiated_job_list_entry; 
° 1339 1 new queue: jst$ijl_swap_queue_ id) ; 
¢) 1392 
1395 
1396 PROCEDURE [INLINE] mmp$nudge_periodic_call; 
1397 
1398 mmv$time_to_call_mem_mgr’:=: 0; 
1399 osv$time_to_check_asyn := 0; 
1400 
1401 PROCEND mmp$nudge_per iodic_call; 
1402 
© 1412 
fe) 1413 { PURPOSE: procedure mtp$error_stop 
° 1414 { Prefixes ‘’ERR=VEOS1000-’ to the string and calls mtp$step_unstep_system to write string and step system} 
© 1415 
oO 1416 PROCEDURE [XREF] mtp$error_stop (text: string(*<=63) ); 
° 1417 
o 1418 PROCEDURE [INLINE] mtp$set_status_abnormal (identifier: string (2); 
Oo 1419 condition: osc$max_ status condition_number + 1 OFFFFFFFFFF( IE); 
Oo 1420 VAR status: syt$monitor_ status) ; 
© 1421 
1431 PROCEDURE [INLINE] osp$fetch_locked variable (VAR variable: integer; 
1432 VAR value: integer); 
1433 
O 1447 PROCEDURE [INLINE] osp$set_locked_ variable (VAR variable: integer; 
° 1448 initial: integer; 
© 1449 final: integer; 
° 1450 VAR actual: integer; 
re) 1451 VAR succeeded: hoolean) ; 
Oo 1452 { 
° 1453 { The purpose of this procedure is to set a compare _ swap lock 
° 1454 { when the user knows the initial contents of the lock. 
° 1455 { This procedure has been generated to help users avoid problems 
© 1456 { with #compare_swap. 
° 1457 { CAUTION: Variables referenced by this procedure may not be 
Oo 1458 { referenced (read or written) any way other than by the 
° 1459 { following procedures: 
o 1460 { osp$increment_locked_ variable 
Oo 1461 { osp$decrement_locked variable 
oO 1462 { osp$fetch_ locked variabie 
oO 1463 { and the intrinsic #compare_ swap. 
o 1464 { 
ce) 1465 { OSPSSET_LOCKED VARIABLE (VARIABLE, INITIAL, FINAL, ACTUAL, SUCCEEDED) 
° 1466 { 
Oo 1467 { VARIABLE: (input,output) This parameter is the variable on which the 
Oo 1468 { compare swap operation is to be performed. 
6 1469 { INITIAL: (input) This parameter is the value that the variable must contain 
° 1470 [{ initial content of the lock must be for the swap 
o 1471 { eperation to be successful. 
° 1472 { FINAL: (input) This parameter is the variable that specifies the vaiue to be 
o 1473 { , stored in the lock if the swap is successful. 
Oo 1474 { ACTUAL: (output) This parameter is the variable into which the initial 
o 1475 { contents of the lock is returned. 
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Gliobal Declarations Referenced by This Module 
© 1476 { SUCCEEDED: (output) This parameter specifies whether the swap was successful 
oO 1477 { or not. 
o 1478 { 
© 1479 
1495 
1496 PROCEDURE [XREF] tmp$calculate_dcet_priority int; 
1497 
1498 
1499 PROCEDURE [INLINE] tmp$clear_lock (VAR lock: tmt$pti_lock); 
1500 
1501 IF osv$cpus_logically_on > 1 THEN 
1502 IF lock.id <> #READ_REGISTER (osc$pr_base_constant) THEN 
1503 i#program_error; {Interlock failure - no message passed for performance reasons} 
1504 IFEND; 
1505 IF lock.count >» © THEN 
1506 lock.count :: tock.count - 1; 
1507 ELSE 
1508 lock.clear :=: 90; 
1509 IFENOD; 
1510 IFEND; 
1511 
1512 PROCEND tmp$c lear_ lock; 
1513 
° 1583 
oO 1584 PROCEDURE [XREF] tmp$free_unrecovered tasks 
o 1585 { ijle_p: Ajmt$initiated_job_list_entry) ; 
© 1586 
1589 
1590 PROCEDURE [XREF] tmp$monitor ready _system_task (stid: tmt$system_task_id; 
1591 VAR status: Syt$monitor_ status) ; 
1582 
1] 1691 
o 1692 PROCEDURE [XREF] tmp$reset_dispatching_ contro] 
o 1693 { ijle_p: AjmtS$initiated_job_list_entry; 
° 1694 ijlo: jmt$ijl_ordinal; 
o 1695 excess service used: integer ; 
° 1696 expired dispatching control: boolean); 
.] 1697 
1700 
1701 PROCEDURE [INLINE] tmp$set_lock (VAR lock: tmt$pt1_lock); 
1702 
1703 VAR 
1704 ° kb: boolean, 
1705 be: integer; 
1706 
1707 IF osv$cpus_logically_on > 1 THEN 
1708 be := #read_ register (osc$pr_base_ constant) ; 
1709 IF leck.id <> be THEN 
1710 REPEAT 
1711 #TEST_ SET (lock. locked, b)j; 
1712 UNTIL NOT 6b; 
1713 lock.id := bec; 
1714 ELSE 
1715 lock.count := lock.count + 1; 
1716 IFEND; 
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NOS/VE Job Management : job scheduler monitor mode 
Gliobal Declarations Referenced by This Module 
T7117 IFEND; 
1718 
1719 PROCEND tmp$set_ lock; 
1720 
o 1723 
Oo 1724 PROCEDURE [XREF] tmp$update_job_task_environment (ijle_p: AjmtS$initiated_job_list_entry; 
Oo 1725 ijl_ordinal: jmt$ijl_ordinal; 
Oo 1726 xcb search: tmt$fnx_search_type) ; 
© 1727 
1743 
o 3192 
o 3183 VAR 
° 3194 
o 3195 jmv$classes_in_maxaj_limit_wait: [XDCL, #GATE] jmt$service_class_ set := $jmt$service_cilass_set [], 
ce) 3196 
Oo 3197 jmv$classes_in_resource_ wait: [XDCL, #GATE] jmt$service_class_set := $jmt$service_class_set [1], 
o 331398 
o 3199 jmv$change_dispatching_ list: [XDCL, #GATE, oss$mainframe_wired] jmt$change_dispatching_ list [fo], NIL], 
o 3200 
Oo 3201 imv$idle dispatching controls: [XDCL, #GATE, oss$mainframe_wired] jmt$idie_dispatching controls, 
o 3202 
Oo 3203 imv$ijl_entry_ status statistics: [KXDCL, #GATE, oss$mainframe_wired] jmt$ijl_entry_status_ statistics, 
oO 3204 
© 3205 { NOTE: Because jmv$ijl_ready_task_list is read/written by both job mode and monitor mode scheduler, 
o 3206 { it is a locked variable and can be referenced only via the compare _swap procedures. 
Oo 3207 
Oo 3208 imv$ijl_ready_task_list: [XDCL, #GATE, oss$mainframe_wired] integer, 
Oo 3209 
Oo 3210 jmv$job_counts: [XDCL, #GATE] jmt$job_counts, 
Oo 3211 
© 3212 imv$job_scheduler_event: [XDCL, #GATE, oss$mainframe_wired] jmt$job_scheduler_event := [REP 19 of FALSE], 
© 3213 
oO 3214 jmv$ job_sched_events_selected: [XDCL, #GATE, oss$mainframe_wired] jmt$job_sched_event_selections := 
o 3215 [TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
oO 3216 FALSE, FALSE, FALSE], 
oO 3217 
oO 3218 jmv$ job _scheduler_table: [XDCL, #GATE, oss$mainframe_wired] jmt$job_scheduler_tablie :=+ 
Oo 3219 140000, FALSE, 60, jmc$sched_profiile_deadstart_id, 10, [REP 8 of [0, 100, FALSE]], 1, 1, 8], 
o 3220 11, 8], [2, 8], [2, 8], {€3, 81], [3, 8], [4, 8], [4, 8], [5, 8], [{5, 8]], 360000000, [], [I], 
oO 3221 [20, 60], NIL, 0], 
O 3222 
Oo 3223 jmv$last_service_cailc_time: [XDCL, #GATE, oss$mainframe_wired] ost$free_ running clock := 0, 
oO 3224 
Oo 3225 imv$ long wait _swap_threshold: [XDCL, #GATE] integer, 
oO 3226 
© 3227 jmv$max_class_working set: [XDCL, #GATE] jmt$working set_size := 3000, 
Oo 3228 
Oo 3229 jmv$max service _class_in_use: [XDCL, #GATE] jmt$service_class_index, 
Oo 3230 
Oo 3231 imv$min_think_time: [XDCL, #GATE] integer := 500000, {Dont update THINK TIME if estimated think 
© 3232 
© 3233 {time is less than this value. 
0 3234 
oO 3235 jmv$max_thinmk_time: [XDCL, #GATE] integer := 60000000, {THINK TIMES > this value are rounded to this 
oO 3236 
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NOS/VE Job Management : job scheduler monitor mode 
Glebal-Declarations Referenced by This Module 
© 3237 {value. 
° 3238 
Oo 3239 jmv$memory needed by scheduler: [XDCL, #GATE] mmt$page_frame_index, 
Oo 3240 
oO 3241 jmv$null_ijl_ordinal: [XDCL, #GATE] jmt$ijl_ordinal := [0, Oo], 
oO 3242 
oO 3243 jmv$prevent_activation_of jobs: [XDCL, #GATE] boolean := TRUE, 
oO 3244 
Oo 3245 jmv$scan_idie_dispatch_interval: [XDCL, #GATE] integer := 15000000, 
O 3246 
oO 3247 imv$sched_profile_is_loading: [XDCL, #GATE, oss$mainframe_wired] boolean :=: FALSE, 
Oo 3248 
o 3249 jmv$sched_ service _calc_time: [XDCL, #GATE] ost$free_running_clock, 
oO 3250 
Oo 3251 jmv$service_class_stats_lock: [XDCL] tmt$ptil_lock := [FALSE, 0], 
Oo 3252 
oO 3253 jmv$service classes: [XDCL, #GATE, oss$mainframe_wired]) array [jmt$service_class_index] of 
oO 3254 Ajmt$service_class_entry :: [REP jmc$maximum_service_classes + 1 of NIL], 
Oo 3255 
© 3256 jmv$ssn_previous sequence: [XDCL, #GATE] jmt$ssn_sequence_number, 
o 3257 
© 3258 jimv$subsystem_priority changes: [XDCL, #GATE] packed array [jmt$service_class_index] of boolean, 
Oo 3259 
Oo 3260 jmv$swapin_candidate_queve: [XDCL, #GATE] array [jmt$service_class_index] of 
Oo 3261 imtS$swapin_candidate_q_ header, 
O 3262 
oO 3263 jmv$swapped_idie_ disp_count: [XDCL] integer := 0, 
Oo 3264 
Oo 3265 jmv$system_supplied_name: [XDCL, #GATE] jmt$system_supplied_name_mask, 
oO 3266 
o 3267 jmv$time_to_ wake scheduler: [XDCL, #GATE] ost$free_running clock; 
oO 3268 
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NOS/VE Job Management : job scheduler monitor mode 
check _for_class_ switch 
oO 3270 
Oo 3271 PROCEDURE check _for_class_ switch 
4 3272 { ijle_p: Ajmt$initiated_job_list_entry); 
4 3273 
4 3274 VAR 
4 3275 new_class: jmt$service_class_index, 
4 3276 rb: jmt$rb_scheduler_ requests, 
4 3277 service class _p: Ajmt$service ciass_attributes; 
4 3278 
4 3278 { Change the job’s service class if the job has reached the class service threshold. 
4 3280 { Only switch classes if the new class to switch to iS currently defined. 
4 3281 
4 3282 service class _p := Ajmv$service_cilasses [ijle_p4.job_scheduler_data.service_cilass]4.attributes; 
4 23283 IF (ijle_p4.job_scheduler_data.service_accumulator > service class_p“.class_service threshold) AND 
38 3284 (service _ciass_p4.class_service_ threshold <> jmc$unlimited service_accum) AND 
38 3285 (NOT jmv$sched_profile_is_ loading) THEN 
38 3286 IF ijle_pA.job_scheduler data.service_ class <> service _ class _p%.next_ service class_index THEN 
&O 3287 mew_class := service _cilass_pA.next_ service cilass_ index; 
40 3288 , IF (jmv$service_ciasses [new_ciass] <> NIL) AND jmv$service_classes [new_class]4.attributes. 
SE 3289 defined THEN 
SE 32390 rb.reqcode := syc$rc_job_scheduler request ; 
SE 3291 rb.sub_reqcode :: jmc$src_cilass_switch; 
SE 3292 rb.system_supplied name := ijle_p4A.system_supplied_ name; 
76 3293 rb.new service class := new_class; 
76 3294 ro.new_ service _accumulator :=: 0; 
76 3295 rb.old_ service class :* ijle_p”. job _scheduler_data.service class; 
76 3296 rb.old_ service _ accumulator := ijle_p%. job_scheduler_data.service_ accumulator ; 
76 3237 
76 3298 imp$process_ class_switch (rb) ; 
$8 3299 
$8 3300 IFEND ; 
98 3301 IFEND; 
3é 3302 IFEND; 


98 3303 PROCEND check for class switch; 
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insert job _in_ready_ task _list 


1989-08-21 


Oo 3306 

© 3307 { PURPOSE: 

° 3308 { This procedure inserts a job with a ready task into the 1ist for job mode 

o 3309 { scheduler to process. 

© 3310 { DESIGN: 

° 3311 { Tne head of the list is a global variable which must be changed by both 

oO 3312 { monitor mode and job mode scheduler. To synchronize the monitor/ job mode 

© 3313 { references, the head of the list is a locked variable which can be referenced 
° 3314 { only via the #compare_ swap procedures. 

oO 3315 

oO 3316 PROCEDURE insert job_in_ready_task_list 

Oo 3317 ( ijl_ordinal: jmt$ijl_ordinal; 

° 3318 ijle_p: Ajmt$initiated_job_list entry); 

oe 3319 

° 3320 VAR 

oO 3321 ijlo: jmt$trick_ijlo_variant_ record, 

Oo 3322 Tist_head: jmt$trick_ijlo_variant_record, 

° 3323 old_list_head: integer, 

° 3324 succeeded: boolean; 

oO 3325 

° 3326 Tjlo.ijil_ordinal : = ijl ordinal; 

4 3327 

4 3328 REPEAT 

14 3329 osp$fetch_ locked variable (jmv$ijl_ready_task_list, list_head.ijl_integer); 
44 33390 ijle_p”.job_scheduler_data.ready task_Tink := list _hnead.ijl_ordinal; 

44 3331 old list _head :: list _head.ijl_integer ; 

44 3332 osp$set_locked variable (jmv$ijl_ready_task_list, old_list_nead, ijlo.ijl_integer, 
44 3333 list _head.ijl_integer, succeeded); 
88 3334 UNTIL succeeded; 

80 3335 


80 3336 PROCEND insert_job_in_ready_task_list; 
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remove _cilass_from_maxaj_ limit 


1989-08-21 


o 3339 

Oo 3340 PROCEDURE remove class _from_maxaj_ limit 

oO 3341 ( service class: jmt$service_cilass_index) ; 

oO 3342 

oO 3343 VAR 

Oo 3344 ignore status: syt$monitor_ status; 

O 3345 

O 3346 jmv$classes_in_maxaj_limit_wait := jmv$cilasses_in_maxaj_limit wait - $jmt$service_class_set 
4 3347 [service class] ; 

4 3348 jimv$job_scheduier_event [jmc$scheduler_wake_time] := TRUE; 

4 3349 jmv$job_scheduler_event [jmc$examine_input_queue] = TRUE; 

4 3350 jmv$ job_scheduler_event [ jmcS$examine_swapin_queue] := TRUE; 

4 3351 tmp$monitor_ready_system_task (tmc$stid_job_scheduler, ignore_status) ; 
40 3352 
40 3353 PROCEND remove _cilass_from_maxaj_ limit; 

° 
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NOS/VE Job Management : job scheduler monitor mode 
[ INLINE, UNSAFE] swapin_queue_empty 


Oo 3357 
© 3358 { PURPOSE: 
° 33539 { This function is called when determining if a monitor swapin should be allowed to take place. 
° 3360 { If the input dispatching priority is blocked or if there are queued jobs with a higher 
° 3361 { dispatching priority FALSE will be returned. 
Oo 3362 

» © 3363 FUNCTION [INLINE, UNSAFE] swapin_queue_empty 

. o 3364 { dispatching priority: jmt$dispatching priority): boolean; 
Oo 3365 
Oo 3366 VAR 
° 3367 ijle_p: AjmtS$initiated_job_list_entry, 
© 3368 service class: jmt$service_class_index; 
Oo 3369 
© 3370 Swapin_queue_ empty := TRUE; 
ce) 3371 
oO 3372 IF jmv$idie_ dispatching controls.controis [dispatching priority].blocked THEN 
° 3373 Swapin_ queue empty := FALSE; 
Oo 3374 RETURN; 
o 3375 IFEND; 
ce] 3376 
oO 3377 /check_swapin_queue/ 
oO 3378 FOR service class := jmec$system_service_ class TO jmv$max_service_class_in_use DO 
o 3379 IF (jmv$swapin_candidate_queue [service_cilass].swapin_candidate_queue <> jmv$nu11_ijl_ordinal) AND 
Oo 3380 (NOT too _many_active_jobs_for_class (service _class)) THEN 
o 3381 imp$get_ijle_p (jmv$swapin_candidate_ queue [service_cilass].swapin_candidate_ queue, ijle_p); 
© 3382 IF ijle_p%.scheduling dispatching priority >» dispatching priority THEN 
Oo 3383 Swapin_ queue _ empty ::= FALSE; 
o 3384 EXIT /check_swapin_queue/ ; 
o 3385 IFEND ; 
o 3386 IFEND ; 
Oo 3387 FOREND /check_swapin_queue/ ; 
o 3388 
o 3389 FUNCEND swapin queue empty; 
o 3390 

“SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 38 

‘NOS/VE Job Management : job scheduler monitor mode 

LT INLINE] too_many_active_jobs_for_ class 

a Oo 3382 
© 3393 FUNCTION [INLINE] too_many_active_jobs_for class 
o 3394 ( service class: jmt$service_class_index): boolean; 
© 3395 
Oo 3396 too _many_active_jobs_for_ciass := (jmv$job_counts.service_ciass_counts [service_class]. 
© 3397 scheduler_initiated_ jobs - jmv$job_counts.service_ciass_counts [service_class].swapped_ jobs) >=: 
© 3398 jimv$service_ciasses [service_class]4.attributes.maximum_active_jobs; 
oO 3399 
o 3400 FUNCEND too_many active jobs _for_ class; 
oO 3401 
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NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmpS$activate_job_mode_swapper 


oO 3403 
oO 3404 PROCEDURE [XDCL] jmp$activate_job_mode_swapper ; 
oO 3405 
Oo 3406 VAR 
Oo 3407 status: syt$monitor_status; 
Oo 3408 
© 3409 imp$set_scheduler_event (jmc$cali1_job_swapper ); 
38 3410 
38 3411 PROCEND jmp$activate_job_mode_swapper ; 
oO 3412 
e 
SOURCE LIST OF jmm$ job_scheduler_monitor_ mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE Job Management : job scheduler monitor mode 
imp$change_dispatching_alloc 
Oo 3414 
o 3415 [{ PURPOSE: 
° 3416 { This procedure changes the dispatching allocation controls in dispatcher’s 
© 3417 { tables. 
° 3418 { DESIGN: : 
° 3419 { The scheduler table has been changed in job mode. Dispatcher’s tabies must 
° 3420 { be changed in mtr mode with the PTL lock set so that task Switch cannot be 
oO 3421 { referencing the tables. The scheduler table is kept in units of seconds for 
° 3422 { the time interval and percentages for the minimum and maximum values; those 
° 3423 { values must a11 be converted to microseconds for the dispatching table. 
Oo 3424 { This procedure is called infrequently (only when a site is changing its 
o 3425 { dispatching allocation controls). 
Oo 3426 
oO 3427 PROCEDURE jmp$change_ dispatching alloc; 
3° 3428 
Oo 3429 CONST 
© 3430 u_second = 1000000; 
Oo 3431 
o® 3432 VAR : 
oO 3433 controls _ defined: boolean, 
oO 3434 dp: jmt$user_ dispatching priority, 
oO 3435 dp_unbilocked: boolean, 
Oo 3436 local set: tmt$dispatching_control_sets, 
ce) 3437 normalized interval: integer; 
° 3438 
© 3439 { Decide if controls are being defined; the site may be setting controls back to defaults 
© 34460 { (0% minimum and 100% maximum). 
o 3441 
° 3442 controls defined := FALSE; 
4 3443 ap_unblocked := FALSE; 
4 3444 
4 3445 /check_controls/ 
4 3446 FOR dp := jme$priority_pi TO jmc$priority p& DO 
18 3447 IF (jmv$job_scheduler_table.cpu_dispatching_allocation [dp] .minimum <> ©) OR 
32 3448 (jmv$ job_scheduler_table.cpu_dispatching_ allocation [dp].maximum <> 100) THEN 
32 34493 controls _ defimed := TRUE; 
32 3450 EXIT /check_controls/; 
3A 3451 IFEND; 
34 3452 FOREND /check_controtls/; 
3E 3453 
3E 3454 { Set the PTL lock while changing the dispatching tables. 
3E 3455 
3E 3456 tmp$set_lock (tmv$pti_loeck) ; 
78 3457 
78 3458 { Reset the dispatching control sets. Reset the minimums_to_ satisfy field in the dispatching table 
78 3459 { (it is used in mmp$periodic to determine if a dispatching priority is blocked). 
78 3460 { NOTE: ’System’ priorities always have minimums_to_satisfy. This guarantees that they will always be 
78 3461 { in the first set considered by task selection in task switch. 
78 3462 { If controls are not defined, clear the controls defined field in the dispatching table. Other fields 
78 3463 { in the dispatching tabie can be left with ‘garbage’ in them; nothing references them when 
78 $3464 { controis_defined is FALSE. 
78 3465 { If controls are defined, reset the values in the dispatching table. 
78 j.3466 { NOTE: Elements in dispatching priority sets are converted so that the highest priority in the set 
78 32467 { is the leftmost bit in the set. Setting bit 1 in a dispatching priority set is adding priority 15 
78 3468 { to the set. (See jmtS$dispatching priority. } 
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imp$change_dispatching_alloc 


78 3469 
78 3470 tmvS$dispatching control _sets.minimums_to_satisfy :+ $jmt$dispatching priority set [1, 2, 3, 4, 
78 3471 tmv$dispatching control_sets.maximums_exceeded := $jmt$dispatching priority _set [1]; 
78 3472 tmv$dispatching control _sets.enforce maximums := $jmt$dispatching_ priority _set []; 
78 3473 tmv$dispatching controls.minimums_to_satisfy := $jmt$dispatching priority set [1, 2, 3, 4, 5, 
78 3474 
78 3475 IF NOT controls _ defined THEN 
98 3476 tmv$dispatching controils.controils defined :: FALSE; 
AQ 3477 ELSE 
AO 3478 tmv$dispatching controls.controls defined :: TRUE; 
AO 8063479 tmv$dispatching controls.maximums_defined := $jmt$dispatching priority set [1]; 
AO 3480 tmv$dispatching controlts.enforce maximums := S$jmt$dispatching_ priority set [1]; 
AO 3481 tmv$dispatching controls.controts.time_left_in_interval :: 
AO 3482 jmv$job_ scheduler _table.dispatching allocation_interval * u_second; 
AO 3483 normalized_interval := tmv$dispatching controls.controls.time_left_in_interval DIV 100; 
AO 3484 FOR dp := jmcS$priority_p1 TO jmc$priority_p&s& DO 
DO 3485 IF jmv$job_scheduler_table.cpu_dispatching allocation [dp] .minimum <> O THEN 
DE 3486 tmvS$dispatching controls.controls.dispatching_priority_time [dp]. 
DE 3487 minimum_time := (normalized_interval) * jmv$job_scheduler_table. 
DE 3488 cpu_dispatching allocation [dp] .minimum; 
: DE 3489 tmv$dispatching controis.minimums_to_satisfy ::= tmv$dispatching controls.minimums to_ sat 
DE 3490 $jmt$dispatching priority _set [jmc$dp_conversion - dp]; 
DE 3491 IF jmv$idile_dispatching_controils.controls [dp].blocked THEN 
114A 3492 jmv$idie_ dispatching _controis.controls [dp].blocked := FALSE; 
114A 3493 jmv$idie_ dispatching _controls.controls [dp].timestamp := #FREE RUNNING CLOCK (0); 
124 34394 jmv$S$idle_ dispatching controis.controls [dp]).last_cp_time := 
124 3495 tmv$cpu_execution_ statistics [dp].time_spent_in_job_mode + 
124 3496 tmv$cpu_execution_statistics [dp] .time_spent_in_mtr_mode; 
124 34397 jimv$idie_dispatching contro is.unblocked priorities := 
124 3498 jmv$idie dispatching _controlts.unblocked priorities + 
124 3499 $jmt$dispatching_priority set [jmc$dp_conversion - dp]; 
124 3500 dp_unblocked := TRUE; 
158 3501 IFEND; 
15C 3502 ELSE 
1SC 3503 tmv$dispatching_controls.controls.dispatching priority _time [dp] .minimum_time := 0; 
16C 3504 IFEND; 
16C 3505 IF jmv$job_scheduler_table.cpu_dispatching allocation [dp].maximum <> 100 THEN 
17E 3506 tmv$dispatching controls.controils.dispatching priority time [dp]. 
17E 3507 maximum_time := (normalized_interval) * jmv$job_scheduler_tabie. 
17E 3508 cpu_dispatching_ allocation [dp] .maximun; 
17E 3509 tmv$dispatching controls.maximums_defined :: tmv$dispatching_ controls.maximums_defined + 
1AE 3510 $jmt$dispatching priority_set [ jmc$dp_conversion - dp]; 
1AE 3511 ELSE 
1AE 3512 tmv$dispatching_ controls.controls.dispatching priority_time [dp] .maximum_time := 
102 3513 tmv$dispatching controils.controis.time_left_in_interval; 
1€2 3514 IFEND ; 
1€2 3515 IF jmv$job_scheduler_table.cpu_dispatching allocation [dp] .enforce_ maximum THEN 
1DO)|0=—- 338 16 tmv$dispatching controls.enforce_ maximums := tmv$dispatching controils.enforce maximums + 
1EA 3517 $jmtS$dispatching priority set [jmc$dp_conversion - dp]; 
1EA 3518 IFEND; 
1EA 35193 FOREND ; 
1EE 3520 tmv$dispatching control sets.minimums_ to satisfy : > tmvS$dispatching controls.minimums to_sat 
TEE 3521 tmv$dispatching control_time := tmv$dispatching controls.controis; 
204 3522 IFEND; 
204 3523 
SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 
“NOS/VE Job Management : job scheduler monitor mode 
imp$change_ dispatching alloc 
204 3524 { Calculate the dispatching priority integers used by task switch and ready task to determine 
204 3525 { which dispatching priority is the highest. 
204 3526 
204 3527 tmp$calculate dct _priority_int; 
20C 3528 
20C 3529 local set :+ tmv$dispatching control sets; 
20C 3530 
20C 3531 FOR dp := jmc$priority_p1 TO jmc$priority p& DO 
218 3532 local_set.ready_ tasks := $jmt$dispatching priority _set [jmc$dp_conversion - dp]; 
218 3533 local _set.minimums_ to_ satisfy := local_set.minimums_to_satisfy * local _set.ready tasks; 
218 3534 local_set .ready tasks := local _set.ready_tasks XOR local_set.minimums_ to_satisfy; 
218 3535 #UNCHECKED CONVERSION (Jlocal_set, tmv$dispatch_priority integer [dp]); 
218 3536 FOREND ; 
250 3537 
250 3538 tmp$clear_lock (tmv$pt1_lock) ; 
288 3539 
288 3540 IF dp_unbtocked THEN 
28c 3541 imp$set_scheduler_event (jmc$examine_swapin_queue) ; 
2BE 3542 imp$set_scheduler_event ( jmc$examine_input_queue) ; 
2EC 3543 IFEND ; 
2EC 3544 
2EC 3545 PROCEND jmp$change_ dispatching alloc; 
oO 3546 
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NOS/VE Job Management : job scheduler monitor mode 
imp$change_dispatching mtr_reg 
oO 3548 
Oo 3549 { PURPOSE: 
° 3550 { This procedure changes the dispatching control information in the service class table 
o 3551 { and resets the dispatching control information for all jobs in classes being changed. 
© 3552 { DESIGN: 
o 3553 { The PTL lock must be set white the table is being changed and affected job updated to 
oO 3554 { prevent task switch from using obsolete/uninitialized dispatching control information. 
o 3555 
ce) 3556 PROCEDURE jmp$change_ dispatching_mtr_req; 
o 3557 
oO 3558 VAR 
° 3559 changes_pointer: Ajmt$dispatching control changes, 
Oo 3560 circular _service: array [jmt$service_ class_index] of integer, 
Oo 3561 class: jmt$service_ciass_index, 
© 3562 classes_changed: jmt$service class_set, 
oO 3563 dispatching control_index: jmt$dispatching controi_index, 
° 3564 dispatching control_p: Ajmt$dispatching control, 
Oo 3565 ijl_bn: jmt$ijil_block_number, 
© 3566 ijl_bi: jmt$ijil_block_index, 
Oo 3567 ijl_ordinal: jmt$iji_ordinal, 
o 3568 ijlie_p: Ajmt$initiated_job_list_entry, 
Oo 3569 service used: integer; 
© 3570 
Oo 3571 classes changed :: $jmt$service_class_set [1]; 
12. 3572 
12 3573 { Set the ptl lock so that task switch cannot be accessing the service class attribute table 
12 3574 
12. 3575 tmp$set_lock (tmv$pt1_ lock) ; 
4C 3576 
4C 3577 { Change the service class attribute table 
4c 3578 
4c 3579 changes pointer ::= jmv$change dispatching list .dispatching control _changes_p; 
4C 3580 
4C 3581 WHILE changes_pointer <> NIL DO 
690 3582 class := changes _pointerA.change service class; 
60 3583 classes changed :+= classes changed + $jmt$service_cliass_set [class]; 
60 3584 dispatching control_p := Achanges pointer” .dispatching control info; 
60 3585 jimv$service_ciasses [class]4.attributes.dispatching control := dispatching controi_p4; 
84 3586 
84 3587 circular_service [class] := 0; 
84 3588 
84 3589 /calculate_circular_service/ 
84 3590 FOR dispatching control_index := jmc$max_dispatching control DOWNTO jmc$min_dispatching control DO 
96 3591 IF dispatching _control_pr [dispatching control_index].set_defined THEN 
AG 3592 IF dispatching _control_ pA [dispatching _control_index].service_limit <> 
B4 3893 jmc$dc_maximum_service_limit THEN 
B4 3594 circular service [class] :+= circular service [class] + 
cé& 3595 dispatching _control_pA [dispatching control _index].service_ limit; 
c&é 3596 ELSE 
C6 35397 EXIT /calculate_circular_service/; 
CA 3598 IFEND; 
Ca 353993 IFEND; 
CO 3600 FOREND /calculate_circular_service/; 
DO 3601 changes_pointer :: changes_pointer”A.dispatching control changes _ p; 
DO 3602 WHILEND ; 
SOURCE LIST OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 839102 * 1989-08-21 13:33:34 
NOS/VE Job Management : job scheduler monitor mode 


jmp$change_dispatching mtr_req 


3603 
3604 
3605 
3606 


eee es 


Scan the ijl to find all jobs belonging te classes that have been changed--those jobs may need to have 


their dispatching priority reset. If the dispatching control sets are circular, MOD the service used 
before calling tmp$reset dispatching control. For batch jobs, total job service is used; for interactive 
jobs, use zero for the service. Interactive jobs should be reset to the first dispatching control set. 


ijle_p := NIL; 


/scan_ijl/ 


FOR ijl_bn := LOWERBOUND (jmvS$ijil_p.block_p4) TO jmv$ijil_p.max_block_inm_use DO 
IF (jmv$ijl_p.btock_pA [ijl_bn].index_p <> NIL) THEN 
ijl_ordinal.block_ number := 1 j1_bn; 
FOR ijl_bi : = LOWERVALUE (jmt$ijl_bliock_index) TO UPPERVALUE (jmt$i jl_block_index) DO 
ijil_ordinal.block_index :: ijl_bi; 


IF ¥jl_ordinal <> jmv$system_ijl_ordinal THEN 
imp$get_ijle_p (ijl_ordinal, ijle_p); 
IF ijle_ pA. job scheduler _data.service class IN classes changed THEN 
IF ijle_pA.job_mode = jmc$batch THEN 
service used := ijle_pA.statistics.cp_time.time_spent_in_job_mode + 
ijle_pA.statistics.cp_time.time_ spent _in_mtr_ mode - 
ijle_ pA.dispatching control.cp_ service at _class_ switch; 
IF circular_service [ijle_p4. job_scheduler_data.service_ciass] <> © THEN 
service _used := service_used MOD circular service 
Lijle_p4. job_scheduler_data.service_ class]; 
IFEND; 
ELSE 
service used :: 0; 
IFEND; 
tmp$reset_dispatching_control (ijle_p, ijl_ordinal, service _used, FALSE); 
IFEND; 
IFEND; 
FOREND ; 
IFEND; 
FOREND /scan_iji/; 


tmp$clear_lock (tmv$pt1_lock) ; 


PROCEND jmp$change_dispatching_mtr_ req; 
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3O0URCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL, INLINE] jmp$decrement_swapped_job_count 
Oo 3643 
oO 3644 PROCEDURE [XDCL, INLINE] jmp$decrement_swapped_job_count 
4 3645 ( ijle_p: Ajmt$initiated_job_list_entry) ; 
4 3646 
4 3647 VAR 
4 3648 job_class: jmt$job_cilass, 
4 3649 service class: jmt$service_class_index; 
4 3650 
4 3651 job _ciass :* ijle_pA.job_scheduler data. job class; 
4 3652 service _ciass :* ijle_pA.job_ scheduler data.service_ class; 
4 3653 jmv$ job counts. job_class_counts [job_ciass].swapped_jobs :: 
4 3654 imv$ job _ counts. job _class_counts [ job_class].swapped_jops ae Abs 
4 3655 jmv$ job _counts.service class_counts [service class] .swapped_jobs := jmv$job_counts. 
4 3656 service_class_counts [service_class].swapped_ jobs - 1; 
4 3657 
4 3658 PROCEND jmp$decrement_swapped_job_count ; 
oO 3659 
5 e 
SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 
NOS/VE Job Management : job scheduler monitor mode 
iXDCL, INLINE] jmpSincrement_swapped_job_count 
oO 3661 
oO 3662 PROCEDURE [XDCL, INLINE] jmpSincrement_swapped_job_count 
4 3663 ( ijle_p: AjmtS$initiated_job_list_entry) ; 
4a 3664 
4 3665 VAR 
4 3666 job_class: jmt$job_class, 
4 3667 service class: jmt$service _class_ index; 
4 3668 
4 3669 job_class :* ijle_pA”.job_scheduler_data.job_ class; 
4 3670 service class := ijle_pA.job_scheduler_ data.service class; 
4 3671 jmv$job_counts. job _class_counts {job_class].swapped_jobs : 
4 3672 jmv$job_counts. job_class_counts [job_ciass].swapped_jobs + 1; 
4 3673 jmv$job_counts.service_class_counts [service_class].swapped_ jobs := jmv$job_counts. 
4 3674 service class counts [service ciass].swapped_jobs + 1; 
4 3675 
4 3676 PROCEND jmp$increment_swapped_job_count ; 
Oo 3677 


13:33:34 


13:33:34 
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SOURCE LIST OF jmm$ job _scheduler_monitor_mode NOS/VE,CYBIL/II 1.0 88102 1989-08-21 13:33:34 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$mtr_job_scheduler requests 


Oo 3679 
Oo 3680 PROCEDURE [XDCL] jmp$mtr_job_scheduler_requests 
4 3681 (VAR request_bltock: jmt$rb_scheduler_ requests); 
4 3682 
4 3683 reguest_biock.status.normal := TRUE; . 
4 3684 
4 3685 { Process the job scheduler sub requests. 
4 3686 
4 3687 CASE request block.sub_reqcode OF 
4E 3688 = jmc$src_operator swap_in = 
4E 3689 jmp$process_oper_swapin_mtr_req (request _block.ijl_ordinal, request_bilock.status) ; 
64 3690 
64 3691 = jme$src_idling_ advance swaps = 
64 3692 imp$process_idling_adv_swaps; 
6E 3683 
6E 3694 = jmce$srec_cilass_ switch = 
6E 3695 imp$process_ class switch (request block); 
7E 3696 
7E 36397 = jme$src_change_ dispatching ctrl = 
7E 3698 jmp$change_dispatching mtr_req; 
88 3699 
8&8 3700 = jme$src_cleanup_unrecovered job = 
8&8 3701 imp$process_unmrecovered_ job (request block); 
A4 3702 
AG 3703 = jmc$src sched profile loading = 
A4 3704 jmp$set_sched_profile_loading; 
AE 3705 
AE 3706 = jme$src_dispatching allocation = 
4E 3707 imp$change_dispatching alloc; 
B& 3708 
B& 37098 = jmce$Ssrc_swapin_recovered jobs = 
B&S 3710 jimp$mtr_swapin_recovered_ jobs; 
C2 3711 
C2 3712 ELSE 
C2 3713 mtp$set_status_ abnormal (‘JM’, jme$invalid scheduler request, request _block.status) ; 
D8 3714 CASEND; 
D8 3715 
D&S 3716 PROCEND jmp$mtr_job_scheduler requests; 
Oo 3717 
SOURCE LIST OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34. 
NOS/VE Job Management : job scheduler monitor mode 


jmp$mtr_swapin_recovered_ jobs 


PCOKCDTDD000O00000000 


3719 
3720 
3721 
3722 
3723 
3724 


toe ate ote ate Bone | 


PURPOSE: 


This procedure scans the IJL and readies ali jobs so that they can swapin for job recovery. 
DESIGN: 


The PTL tock is set to prevent any kind of ready task being processed asynchronously. 
**x Discuss whether this is necessary at the code review. 


PROCEDURE jmp$mtr_swapin_recovered_ jobs; 


VAR 
ijl_pn: jmt$ijl_block_number , 
ijl_bi: jmt$ijil_block_index, 
ijl_ordinal: jmt$ijl_ordinal, 
ijle_p: Ajmt$initiated_job_list_entry; 


tmp$set_lock (tmv$pt1_ lock) ; 


FOR ijl_bnm := LOWERBOUND (jmv$iji_p.block_p4) TO jmv$ijl_p.max_block_in_use DO 
IF jmv$ijl_p.bleck_ pA [ijl_bn].index_p <> NIL THEN 
FOR ijl_bi := LOWERVALUE (jmt$ijil_block_index) TO UPPERVALUE (jmt$iji_bloeck_index) DO 
ijl_erdinal.btock_ number :+: iji_bn; 
ijl_ordinal.block_index := iji_bi; 
imp$get_ijle_p (ijl_ordinal, ijle_p); 
IF ijle_pA.entry_ status <> jmc$ies_ entry free THEN 
IF jmc$dsw_job_recovery IN ijle_p%.delayed swapin_work THEN 
imp$change_ijl_entry_ status (ijle_p, jmc$ies_job_swapped) ; 
jmp$ready_ task_in_swapped_job (ijl_ordinal, ijle_p); 
IFEND ; 
IFEND; 
FOREND; 
IFEND; 
FOREND ; 


tmp$ciear_lock (tmv$pt 1_lock); 


PROCEND jmp$mtr_swapin_recovered_ jobs; 
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SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 49 
NOS/VE Job Management : job scheduler monitor mode 
jimp$process_ class_switch 
oO 3757 
o 3758 { PURPOSE: 
‘ ° 3759 { This procedure updates dispatching control information when a job switches 
3° 3760 { service classes. The PTL lock must be set while the dispatching contro! 
° 3761 { information is changed to prevent task switch from referencing obsolete/ 
o 3762 { uninitialized information. 
o 3763 
o 3764 PROCEDURE jmp$process_ class_switch 
o 3765 (VAR rb: jmt$rb_scheduler_requests) ; 
o 3766 
o 3767 VAR 
oO 3768 old_cilass: jmt$service_class_index, 
o 3769 service class_p: Ajmt$service_class_attributes, 
° 3770 ijle_p: Ajmt$initiated_job_list_entry, 
Oo 3771 ijlo: jmt$ijl_ordinal,; 
oO 3772 
Oo 3773 jmp$find_jsn (rb.system_supplied_ name, ijle_p, ijilo); 
3A 3774 
3A 3775 tmp$set_lock (tmv$pti1_lock) ; 
74 3776 
74 3777 IF (ijle_p <> NIL) AND (ijle_pA.entry_ status > jmc$ies_job_in_memory_nmon_swap) AND 
$8 3778 (NOT jmv$sched_profile_is_loading) THEN 
98 3779 old class := ijle_p%. job_scheduler_data.service_ class; 
98 3780 
$8 3781 IF rb.old_service_ class = jme$nuli_service_ciass THEN 
A4 3782 rb.old_ service class := old class; 
A4 3783 rb.old_ service accumulator := ijle_pA.job_ scheduler_data.service accumulator ; 
B4 3784 ELSEIF (rb.old_ service _ciass <> old _ciass) OR (rb.old_service_accumulator > 
C4 3785 ijle_p’. job _scheduler_data.service_accumulator) THEN 
c4 3786 tmp$cilear_lock (tmv$pt 1_lock); 
FC 3787 RETURN ; 
FE 3788 IFEND; 
FE 3789 
FE 3790 jmp$update_ service_class_ stats (ijle_p); 
112 3791 
112 3792 IF (ijle_p’%.entry status > jmc$ies_ swapped_in) THEN 
120 37933 imp$decrement_swapped_job_count (ijle_p); 
120 3794 ijle_ pA. job_scheduler_data.service_ class :: rb.new_ service class; 
120 3795 imp$increment_swapped_job_count (ijile_p); 
184 3796 ELSE 
184 3737 ijle_p%.job_scheduler_data.service class := rb.new_service class; 
18C «=69©3798 IFEND; 
18C 3799 
18C 3800 jmv$ job_counts.service_cilass_counts [old class] .scheduler_initiated jobs : = 
18C 83801 jmv$ job_counts.service_ class _ counts [old class] .scheduler_initiated jobs - 1; 
18C 3802 
18C 3803 jmv$ job_counts.service_class_counts [rb.new_service_class].scheduler_initiated jobs :: 
18C 3804 jmv$ job_counts.service_ class _counts [rb.new_service_ class] .scheduler_initiated jobs + 1; 
18C 3805 
18C 3806 service _class_p := Ajmv$service_ciasses [rb.new_service_ class]A.attributes; 
18C 3807 
18C 8=963 808 ijle_p”.job_scheduler_data.service accumulator :=: 0; 
18C 3809 ijle_p%.dispatching_control.dispatching control_index := jmc$min_dispatching control; 
18C 3810 IF ijle_p%.dispatching control.dispatching priority = ijle_p%.scheduling dispatching priority THEN 
104 3811 ijle_p”A.scheduling dispatching priority := service class_ pA. 
SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 : 1989-08-21 13:33:34 PAGE 50 
NOS/VE Job Management : job scheduler monitor mode 


imp$process_ class _ switch 


1DC 3812 dispatching control [jmc$min_dispatching control] .dispatching priority; 
1DC 3813 IFEND; 
1DCc 3814 ijle_pA.dispatching control.dispatching priority := service class _ pA. 
10¢c 3815 dispatching control [ jmc$min_dispatching_ control] .dispatching_ priority; 
; 1oc 3816 ijle_p%.dispatching control.service remaining := service class pA”. 
1DC 3817 dispatching control [jmc$min_dispatching_control].service_limit ; 
10C 3818 ijle _ pA.dispatching control.cp_ service _ at _class_ switch := 
1DC 3819 ijle_pA.statistics.cp_time.time_spent_in_job_mode + 
1DC 3820 ijle_p%.statistics.cp_time.time_spent_in_mtr_mode; 
Dc 86063821 tmp$update_job_task_environment (ijle_p, ijlo, tmce$fnx_job); 


21A 3823 { Check active job limits for the new class; cause a job to swapout if necessary. 


21A 3825 IF (jmv$job_counts.service_ciass_counts [rb.new_service_ class].scheduler_ initiated jobs 
234 .3826 jmv$ job _counts.service_ class counts [rb.new_service_ciass] .swapped_jobs) > 

234 3827 service class _ pA.maximum_active_ jobs THEN 

234 3828 jmp$set_scheduler_event (jmc$swap_jobs_for_lower_maxaj); 

262 3829 IFEND; 

262 3830 IFEND; 

262 3831 

262 3832 tmp$clear_lock (tmv$pt1_lock) ; 

293A 3833 


293A 3834 PROCEND jmp$process_class_ switch; 


SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 51 


NOS/VE Job Management : job scheduler monitor mode 
jmp$process idling _adv_swaps 


oO 3837 
o 3838 PROCEDURE jmp$process_idling_adv_swaps; 
1?) 3839 
Oo 3840 VAR 
oO 3841 ijl_ordinal: jmt$ijl_ordinal, 
oO 3842 ijle_p: Ajmt$initiated_job_list_entry, 
Oo 3843 next ij l_ordinal: jmt$ijl_ordinal; 
Oo 3844 
Oo 3845 ijl_ordinal := jsv$ijl_swap_queue_list [jsc$isqi_swapped_io_completed] .forward_ link; 
4 3846 
4 3847 WHILE ijl_ordinal <> jmv$nul1_ijl_ordinal DO 
1E 3848 imp$get_ijle_p (ijl_ordinal, ijie_p); 
1E 3849 next iji_ordinal := ijle_pA.swap_queue_ link. forward link; 
1E 3850 isp$Smonitor_advance_ swap (ijl_ordinal); 
S56 3851 ijl_ordinmatl := next_ijl_ordinal; 
56 3852 WHILEND ; 
6E 3853 
GE 3854 PROCEND jmp$process_idling_adv_swaps; 
o 3855 
SOURCE LIST OF jmm$ job _scheduler_monitor_mode NOS/VE CYBIL/II 1.60 89102 1889-08-21 13:33:34 PAGE 
NOS/VE Job Management : job scheduler monitor mode 
jimp$process oper _swapin_mtr_req 
oO 3857 
oO 3858 { PURPOSE: 
0 385s { Process an operator swapin job request. 
© 3860 { DESIGN: 
ce 3861 { Re-check entry status. Entry status was operator force out when the monitor request was issued. 
0 3862 { The following (very unlikely) timing sequence could occur though: 
oO 3863 { The job was swapping in (swapin I/0 was active) when the operator swapout occurred. Entry status 
° 3864 { was changed to operator force out. The operator swapped the job in right away (1/0 was still 
© 3865 { active); the job mode operator swapin code found entry status still set to operator force out. 
ie) 3866 { Before exchanging to monitor for the swapin request, process I/0 completions executed. Swapin 1/0 
© 3867 { errors would cause the entry status to be changed to system force out. 
o 3868 { If entry status is still operator force out, then change entry status to Swapped. Cali 
° 3869 { imp$ready_task_in_swapped job if the job has any ready tasks. 
o 3870 
oO 3871 
o 3872 PROCEDURE jmp$process_ oper swapin_mtr_req 
oO 3873 { ijl_ordinal: jmt$ijl_ordinal; 
o 3874 VAR status: syt$monitor_ status); 
Oo 3875 
© 3876 VAR 
Oo 3877 ijle_p: Ajmt$initiated job_list_entry; 
oO 3878 
o 3879 imp$get_ijle_p (ijl_ordinal, ijle_p); 
4 3880 
4 3881 IF ijle_pA.entry status = jmc$ies_ operator_force_ out THEN 
32 3882 
32 3883 { Set the PTL lock to synchronize with the dispatcher/ready task path. 
32 3884 , 
32 3885 status.normal := TRUE; 
32 3886 tmp$set_lock (tmv$pt1_lock) ; 
70 3887 jimp$change_ijl_entry_status (ijle_p, jmc$ies_job_swapped) ; 
F& 3888 IF ijle_ pA.statistics.ready task_count >» © THEN 
104 38893 ijle_p%. job _ scheduler _data.swapin_q priority timestamp :=:= 0; 
104 3890 jmp$ready_task_in_swapped_job (ijl_ordinal, ijle_p); 
11E 3891 IFEND; 
11E 3892 tmp$clear_ lock (tmv$pti_lock); 
15A 3893 
115A 3894 ELSE 
15A 3895 IF ijle_ pA.entry status <> jmc$ies system_force out THEN 
160 3896 mtp$error_stop (‘OPER SWAPIN REQUEST ERROR’); 
180 3897 IFEND; 
180 3898 mtp$set_status_abnormal (‘JM’, jme$job_dead_cannot_swap, status); 
182 38995 IFEND; 
192 3900 
182 3901 PROCEND jmp$process_oper_swapin_mtr_req; 
oO 3902 


52 


SOURCE LIST OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 88102 1889-08-21 


NOS/VE Job Management : job scheduler monitor mode 
jmp$process_unrecovered_ job 


Pr COM emememem cme mememel cle ie) 


SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 
NOS/VE Job Management : job scheduler monitor mode 
{[XDCL] jmp$ready_task_in_swapped_job 
o 3938 
Oo 3938 PROCEDURE [XDCL] jmp$ready_task_in_Swapped_job 
Oo 3940 { ijl_eord: jmt$ijl_ordinal; 
o 3941 ijle_p: AjmtS$initiated_job_list_entry) ; 
fe) 3942 
© 3943 VAR 
oO 3944 current time: integer, 
o 3945 service class: jmt$service_class_index, 
Oo 3946 Status: syt$monitor_ status, 
° 3947 Swap_stats_p: Ajmt$service_ class swap_stats, 
oO 3948 think _time: integer ; 
ce 3949 
Oo 3950 #KEYPOINT (osk$entry, ©, jmk$ready task_in_swapped_ job); 
& 3951 
& 3952 { If a job with a memory reserve request posted has a task go ready, cancel the request. 
& 3853 { The ready task may be because of a user interrupt; do not wait for the requested memory 
8 3954 { to become available. 
8 3955 
8 3956 IF ijle_pA.memory_ reserve request .requested page count > O THEN 
14 3957 ijle_pA.memory_ reserve request .requested page count := 0; 
14 3958 jmv$ job_sched_ events selected [{ jmc$examine_swapin_queue] :* TRUE; 
14 3959 imp$set_scheduler_event (jmc$examine_swapin_queue) ; 
4E 39360 IFEND; 
4E 3961 
4E 3962 current _time := #FREE RUNNING CLOCK (0); 
56 3963 IF ijle_pA.entry status = jmc$ies_ job _ swapped THEN 
60 3964 
60 3965 think _time := current _time - (ijle_pA.estimated ready_time - ijle_p4.last_think_time) ; 
60 3966 IF (think _time > jmv$max_think_ time) THEN 
TA 3967 ijle_pA.last_think_time :: jmv$max_ think _ time; 
82 3968 ELSEIF (think_time > jmv$min_think_time) THEN 
8A 39369 ijle_ pA. last _think_time := think time; 
gE 3870 IFEND; 
8E 3971 
8E 3972 ijle_ pA.swap_data.timestamp := current _time; 
8E 3973 
8E 3974 service class :* ijle p4”.job scheduler _data.service class; 
8E 3975 
8E 35976 tmp$set_lock (jmv$service_ class _stats_lock); 
D6 3977 Swap_stats_p := Ajmv$service_ classes [service _class]4.statistics.swap_stats; 
D6 33978 Swap stats pA.swap_to_ready time := swap_stats_pA.swap_ to ready time + 
DG 3979 (current_time - ijle_p4.swap_data.swapout_timestamp) ; 
DG 3980 Swap_stats_p’.swap_ to ready count := swap_stats pA.swap_to_ ready count + 1; 
D6 3981 tmp$ciear_iock (jmv$service_ class stats_lock); 
13C 863982 
13C 063883 { If possible, swap the job in immediately through the monitor interface; otherwise notify job mode 
13C 39384 { scheduler to swap the job in. If the dispatching priority of the job is blocked, the swapin must 
13C 3985 { be handied by job mode scheduler. 
13C 3986 
13C 3987 IF (NOT jmv$prevent_activation_of jobs) AND (NOT jmv$job_ scheduler _event [ jmc$examine_input_queue]) AND 
13C 063988 (ijle_p4.job_scheduler _data.swapout_ reason <> jmc$sr_thrashing) AND 
13C 3989 (swapin_queue_empty [ijle_pA.scheduling dispatching priority)) AND 
13 063390 Cijle_p4.swap_ status <= jmce$iss_ Sswapped_io complete) AND ( jmv$number free _ajl_entries > ©) AND 
238 3991 (NOT too_many_active_jobs_for_ class (service _ciass)) THEN 
238 3992 


3904 
3905 
3906 
3307 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3320 
3321 
3922 
3923 
3924 
3925 
3926 


{ PURPOSE: 

{ This procedure relinks a job to the null Swapping queue and changes job class counts 
{ when a job must be terminated during job recovery. The PTL entries for the tasks of 
{ the job are freed. The two reasons for the termination are that a job class 1s not 
{ defined for a job or a job could not be swapped in for recovery due to an io error. 


PROCEDURE jmp$process_unrecovered_ job 
( rb: jmt$rb_scheduler requests) ; 


VAR 
ijle_p: Ajmt$initiated_job_list_entry; 


imp$get_ijle_p (rb.ijl_ordinal, ijle_p); 


tmp$set_lock (tmv$ptil_tock) ; 


jmv$ job_counts.service_class_counts [ijle_pA. job _scheduler_data.service_class].scheduler_initiated_ jobs 


jmv$job_counts.service_class counts [ijle_p’%. job scheduler _data.service_ciass]. 
scheduler_initiated jobs - 1; 


jmv$job_counts.service_class_counts [ijle_p%*.job_scheduler_data.service_class].swapped_jobs 


13:33:34 


jmv$ job_counts.service_ class _ counts [ijle_p’. job_scheduler_data.service_class].swapped_jobs - 


jmv$job_counts. job_class_counts [ijle_p4. job_scheduler_data. job_class].swapped_jobs 


jmv$job_counts. job_class_ counts [ijle_p%.job_scheduler_data.job_class] .swapped_ jobs 


jsp$relink_swap_queue (rb.ijl_ordinal, ijle_p, jsc$isqi_nul1); 
tmp$free_unrecovered tasks (ijle_p); 
tmp$cilear_ lock (tmv$pti_ tock) ; 


PROCEND jmp$process_unrecovered_ job; 


1; 


1; 
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SOURCE LIST OF jmm$ job_scheduler monitor mode NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 PAGE 55 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$ready_task_in_swapped_job 
238 3993 isp$monitor_swap_in (ijl_ord); 
24E 3994 


24E 3995 { Reset fields for scheduler data -- only reset service accumulator since Swap if the job used 
24E 3996 { its whole guaranteed service allotment the last time it was swapped in. 


24E 3997 
24E 3998 IF ijle_ pA. job_scheduler data.guaranteed service remaining = © THEN 
256 3999 ijle_pA.job_scheduler_data.service_accumulator_since_ swap := 0; 
254 4000 IFEND; 
2582 4001 ijle_pA.job_scheduler_data.guaranteed_service_remaining := 0; 
254 4002 ijle_p’.job_scheduler_data.priority := jmv$service_classes [service class]4.attributes. 
276 4003 scheduling priority.maximum; 
276 4004 
276 4005 ELSE {The swapin could not take place in monitor so notify job mode scheduler to handle the swapin.} 
276 4006 imp$change_ijl_entry_status (ijle_p, jmc$ies ready_task); 
2F2 4007 insert _job_in_ready_task_list (ijl_ord, ijle_p); 
308 4008 jmv$ job_scheduler_event [ jmc$ready_task_in_job] := TRUE; 
308 4009 IF (NOT {service_class IN jmv$classes_in_maxaj_limit_wait)) THEN 
31C 40610 jmv$ job _scheduler_event [jmc$examine_swapin_ queue] := TRUE; 
31C 4011 IF (NOT (service _ class IN jmv$classes_in_resource_ wait)) THEN 
32E 4012 jmv$ job_sched_events selected [ jmc$examine_swapin_queue] := TRUE; 
32E 4013 tmp$monitor_ready_ system_task (tmc$stid_job_scheduler, status}; 
34C 4014 IFEND; 
34C 4015 IFEND; 
34C 4016 IFEND; 
34C 4017 IFEND; 
34C 4018 
34C 4019 #KEYPOINT (osk$exit, ©, jmk$ready_task_in_swapped_ job) ; 
350 4020 
350 4021 PROCEND jmp$ready_task_in_swapped_ job; 
ce 4022 
SOURCE LIST OF jmm$ job _scheduler_monitor mode NOS/VE CYBIL/II 1.0 8810602 1989-08-21 13:33:34 PAGE 56 
NOS/VE Job Management : job scheduler monitor mode 


[XDCL] jmp$recognize_job_dead 


oO 6024 
Oo 4025 { PURPOSE: 
° 4026 { This procedure is called when a swapin I/0 error occurs to change a job’s status to reflect that the 
Oo 4027 { job cannot swapin. 
oO 4028 { DESIGN: 
o 4023 { The current status is checked before changing it to system _force_ out. The various statuses 
oOo 4030 { are handied as follows: 
ce) 4031 { Free, Terminating, In memory non swap, In memory, System force out -- CANNOT possibly be these statuses. 
° 4032 { Swapin in progress, Swapped, Operator force out -- Change the entry status to system force out. 
o 4033 { Swapin im progress is the usual case; swapped requires an IDLE_SYSTEM swapout while the swapin 
Oo 4034 { 1/0 was active; operator force out would be set if the operator swapped out the job while swapin 
o 4035 { I/O was active. 
° 4ao3e { Job damaged -- do not change the entry status; job damaged is more important to know. 
° 4037 { Ready task, Swapin candidate -- do not change the entry status; only JOB SCHEDULER can change 
o 4038 { these statuses. The job will be swapped in again and the I/0 error will be processed then. 
© 403s { The possibie timing for a job to be in one of these states is very remote: An IDLE SYSTEM 
° 4o4ao { Swapout would have to be processed while swapin I/0 was active (a swap cannot be aborted 
oO 4041 { while swapin 1/0 is active). Then RESUME _ SYSTEM would have to queue the job to swap in again 
° 4042 { while the original swapin I/0 was still active. 
o 4043 { 
Oo 4044 { The PTL must be locked while changing the entry status because the swapped job count will be changed 
o 4045 { in the swapin in progress <---> system force out transition. 
Oo 4046 
oO 4047 PROCEDURE [XDCL] jmp$recognize_job_dead 
o 4048 ( ijl_o: jmt$ijl_ordinal); 
o 4049 
oO 4050 VAR 
oO 4051 ijl_p: Ajmt$initiated_job_list_entry; 
Oo 4052 
Oo 4053 jimp$get_ijie_p (ijlie, ijl_p); 
4 4054 
4 4055 IF (ijl_pA.entry status = jmc$ies sSwapin_in_progress) OR (ijl_p4A.entry_ status = jmc$ies_job_swapped) OR 
490 4056 (ijl_p4.entry status = jmc$ies_ operator force _out) THEN 
40 4057 
40) 6.4058 tmp$set_lock (tmv$pt1_lock); 
7A 6059 jmp$change_ijl_entry_status (ijl_p, jmce$ies_system_force_ out); 
102 4060 tmp$clear_lock (tmv$pti_lock); 
13C 4061 
13C 4062 IF jmc$dsw_job_recovery IN ijl_p4“.delayed_ swapin_work THEN 
148C 4063 ijl_pA.delayed_Swapin_work := ijl_p4.delayed sSwapin work + 
14C 4064 $jmt$delayed_swapin_work [ jmc$dsw_recovery sSwap_io_error]; 
14C 4065 imp$set_scheduler_event (jmc$recovery swap_io_error ) ; 
184 4066 IFEND; 
184 4067 IFEND ; 
184 4068 


184 4069S PROCEND jmp$recognize_job_dead; 
oO 4070 


SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$recognize_thrashing 


° 


Phe POodddodds 


4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4083 
4090 
4091 
4092 
4033 
40394 
4095 
4096 
40g7 
4098 
4099 
4100 
4101 
4102 
4103 
4104 


{ 


{ 
{ 


PROCEDURE [XDCL] jmp$recognize_thrashing; 
VAR 
ajlo: jmt$aji_ordinal, 
count: jmt$ajil_ordinal; 
count :=: 0; 


Determine if there is more than one user job active. 


/count_active_jobs/ 


1988-08-21 


FOR ajlo := jmv$system_ajil_ordinal + 1 TO jmv$max_ajil_ordinail_in_use 00 
IF jmv$ajl_p% [ajlo].in_use <> © THEN 
count := count + 1; 
IF count = 2 THEN 
EXIT /count_active_jobs/ ; 
IFEND; 
IFEND; 


FOREND /count_active_jobs/; 


If there is more than one user job active, cause scheduler t 


© Swap for thrashing. 


If there 


13:33:34 


is only 


one user job active, cause mmp$periodic_call to run so the jobs working set can be shrunk to fit in memory. 


IF count = 2 THEN 
jmp$set_scheduler_event (jmce$system_is_thrashing) ; 
ELSE 
mmv$reduce_jws_ for_thrashing := TRUE; 
mmp$nudge_periodic_cati; 
IFEND; 


PROCEND jmp$recognize_thrashing; 


SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$reset_job_to_swapped_out 
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PURPOSE: 
This procedure is called from swapper when a swapin could 
was not enough memory or there was not a free AJL ordinal. 
to be swapin in progress when this procedure is called. 


PROCEDURE [XDCL] jmp$reset_job_to_swapped_out 
( ijl_o: jmt$iji_ordinal); 


VAR 
ijl_p: Ajmt$initiated_job_list_entry, 
status: syt$monitor_status; 


jmp$get_ijle_p (ijil_o, iji_p); 

IF ijl_p4.entry_ status <> jmc$ies swapin_in_progress THEN 
mtpSerror_stop (’RESET TO SWAPPED OUT ERROR’); 

IFEND; 


tmp$set_tock (tmv$pt1_lock) ; 

imp$change_ijl_entry_status (i 

insert _job_in_ready_ task_list 
c i 


jl_p,. jmc$ies_ready task); 
i ( 1 
tmp$ciear_ilock (tmv$pt1_lock 


ijl_o, iji_p); 


jmv$ job_scheduler_event [jmc$ready task _in_job] := TRUE; 


1989-08-21 


not be completed because there 


The entry status has 


IF (NOT (ijl_p4A. job_scheduler_data.service_ciass IN jmv$classes_in_maxaj_limit_wait)) THEN 
jimv$ job_scheduler_event [ jmc$examine swapin_queue] := TRUE; 


IF (NOT (ijl_pA.job_scheduler_data.service_class IN jmv$classes_in_resource_wait)) THEN 


tmp$monitor ready system_task (tmc$stid_job_scheduler, 
IFEND; 
IFEND ; 


PROCEND jmp$reset_job_to_swapped_out ; 


status); 
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SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$resurrect_dead_jobs 
o 4140 
o 4141 PROCEDURE [XDCL] jmp$resurrect_dead_ jobs; 
o 4142 
o 4143 { The purpose of this procedure is to find all jobs that have been marked as system_force_out 
° 4144 { because a disk unit was down, and find all jobs that could mot be swapped completely because 
o 4145 { a disk unit was down. This procedure is called whenenver a disk unit comes back up. 
° 4146 { Swapper will try to procede swapping the jobs normally. 
oO 4147 
Oo 4148 VAR 
o 41498 cali_job_swapper: boolean, 
o 4150 ijle_p: AjmtS$initiated_job_list_entry, 
° 4151 iji_bn: jmt$iji_block number, 
Oo 4152 ijl bi: jmt$iji_biock index, 
oO 4153 ijl_ordinal: jmt$ijl_ordinal, 
oO 4154 status: syt$monitor_ status; 
Oo 4155 
o 4156 calil_job_swapper :=: FALSE; 
4 4187 
4 4158 /search_igjl/ 
4 4159 FOR ijl_bn := LOWERBOUND (jmv$ijil_p.block p%) TO jmv$ijl_p.max_block_in_use DO 
1A 4160 IF jmv$ijl_p.block_ pA [ijl_bn].index_p <> NIL THEN 
2C 4161 FOR ijl_bi :: LOWERVALUE {jmt$ijl_ block index) TO UPPERVALUE ( jmt$ijl_biock_index) DO 
36 4162 ijle_p := Ajmv$iji_p.block_pA [ijl_bpn].index_p” [ijl_bil; 
36 4163 ijl_ordinal.block number :-= iji_bn; 
36 4164 iji_ordinal.block_index := iji_bi; 
36 4165 
36 4166 IF (ijle_p%.entry_ status = jmc$ies_system_force_ out) AND 
66 4167 ’ (ijle_p%.swap_data.swapping_io_error <> ioc$no_error) THEN 
66 4168 
66 4169 { The job was swapped out, swapping in when the io error occurred. Try to swap the job in now. 
66 4170 
66 4171 tmp$set_lock (tmv$pti_lock); 
AO 4172 imp$change_ijl_entry_status (ijle_p, jmc$ies_ ready task); 
128 4173 insert_job_in_ready_task_list (ijl_ordinal, ijle_p); 
144 4174 tmp$clear_lock (tmv$pti_lock) ; 
17C 8694175 
17C 4176 jmv$job_scheduler_event [jmc$ready task_in_job] := TRUE; 
170 44177 jmv$ job_scheduler_event [jmc$examine_swapin_queue] :: TRUE; 
17€ 44178 tmp$monitor ready _system_task (tmc$stid_job_scheduler, status); 
1A2 4179 
1A2 4180 ELSEIF (ijle_p4.swap_status = jmc$iss_Sswapped_io_cannot_init) OR 
1B2 4181 (ijle_p4.swap_status = jmc$iss_job_allocate_ swap_file) THEN 
1B2 4182 
1B2 4183 { The job was swapping out when the condition occurred. Call job mode swapper to check on 
182 4184 { the state of the swap file and allocate it if necessary, then advance the swapout. 
182 4185 
1B2 4186 call_job_swapper := TRUE; 
1B8 4187 
1B8 4188 IFEND; 
1B8 4189 FOREND; 
1CO0 4190 IFEND; 
1CO 4191 FOREND /search_ijl/; 
1C4 4192 
104 4193 IF cali_job_swapper THEN 
1C8 4194 jmp$activate_job_mode_ swapper ; 
SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 
NOS/VE Job Management : job scheduler monitor mode 


[xXDCL] jmp$resurrect_dead_ jobs 
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IFEND; 


PROCEND jmp$resurrect_dead_jobs; 
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SOURCE LIST OF jmm$job_scheduler_monitor_ mode NOS/VE CYBIL/II 1.0 89102 


NOS/VE Job Management : job scheduler monitor mode 
_[XDCL] jmp$set_entry_status_to_rt 


0° 


coocooooog0o0 0 


4200 
4201 

4202 
4203 
4204 
4205 
4206 
4207 
4208 
&209 
a210 
4211 

4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 

4222 
4223 
4224 
4225 


PURPOSE : 


1989-08-21 


This procedure is called from swapper (job_mode_Swapout) to set the entry status of the 
in the ready task list. 


job being swapped out to jmc$ies_ready task and insert the job 
The caller has the PTL lock set. 


PROCEDURE [XDCL] jmp$set_entry status _to_rt 
ijl_ordinal: jmt$ijl_ordinal; 
ijle_p: Ajmt$initiated_job_list_entry) ; 


VAR 
status: syt$monitor status; 


jmp$change_ijl_entry_ status (ijle_p, jmc$ies_ready_ task); 


insert _job_in_ready_ task_list (ijl_ordinal, ijle_p); 

jmv$job_scheduler_event [jmc$ready_ task_in_job] :+= TRUE; 

IF (NOT (ijle_p’. job_scheduler_data.service_class IN jmv$classes_in_maxaj_limit_wait)) THEN 
jmv$job_scheduler_event [ jmc$examine_swapin_queuwe) := TRUE; 
IF (NOT (ijle_p’. job _scheduler_data.service_cilass IN jmv$classes_in_resource_wait)) THEN 

tmp$monitor_ ready system_task (tmc$stid_job_scheduler, status); 

IFEND; 

IFEND; 


PROCEND jmp$set_entry status_to_rt; 


SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 


NOS/VE Job Management : job scheduler monitor mode 
jmp$set_job_terminated 
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PURPOSE: 


1989-08-21 


This procedure sets a job’s entry status to terminating, and JOB SCHEDULER event to 


process the terminating job. 


PROCEDURE [XDCL] jmpSset_job_terminated 
ijl_ordinal: jmt$ijl_ordinal; 
ijle_p: Ajmt$initiated_job_list_entry); 
jmp$change_ijl_entry_status (ijle_p, jmc$ies_ job_terminating); 
jmv$ijl_p.block_p%” [ijl_ordinal.block_ number ].terminated_job 
imp$set_scheduler_event (jmc$job_terminated) ; 


PROCEND jmp$set_job_terminated; 


TRUE ; 
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SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 889102 


NOS/VE Job Management job scheduler monitor mode 
jmp$set_sched_profile_ loading 


ce) 4243 

° 4244 { PURPOSE: 

o 4245 { 

oO 4246 { scheduling profile is being installed 
° 48247 

ve 4248 PROCEDURE jmp$set_sched_profile_loading; 
4 42493 

4 4250 jmv$sched_ profile _is loading := TRUE; 
4 4251 

4 4252 PROCEND jmp$set_sched_profile_ loading; 
©} 4253 


The purpose of this request is to set the flag which indicates that a 


in the scheduler tables. 


SOURCE LIST OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 88102 


NOS/VE Job Management job scheduler monitor mode 
[XDCL, INLINE] jmp$set_scheduiler event 


oO 4255 

° 4256 PROCEDURE [XDCL, INLINE] jimp$set_scheduler_event 
4 42587 ( event: jmt$job_scheduler events) ; 

4 4258 

4 4259 VAR 

4 4260 status: syt$monitor_ status; 

4 4261 

4 4262 IF NOT jmv$job_scheduler_event [event] THEN 

14 4263 jimv$job_scheduler_event [event] := TRUE; 

14 4264 IF jmv$job_sched_events_ selected [event] THEN 
22 4265 tmp$monitor ready _system_task (tmc$stid_job_scheduler, status); 
3C 4266 IFEND; 
3C 4267 IFEND ; 
3C 4268 PROCEND jmp$set_scheduler_event ; 


° 4269 


1989-08-21 


1889-08-21 
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SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


NOS/VE Job Management : job scheduler monitor mode 
TXDCL] jmp$set_scheduler_memory_ event 


oOo 4271 
Oo 4272 PROCEDURE [XDCL] jmp$set_scheduler_memory event ; 
oO 4273 
oO 4274 VAR 
Oo 4275 status: syt$monitor status; 
GO 4276 
oO 4277 jmv$ job_scheduler_event [jmc$needed_memory_ available] := TRUE; 
4 4278 tmpS$monitor_ ready system_task (tmc$stid_job_scheduler, status) ; 
28 4279 
28 4280 PROCEND jmp$set_scheduler_memory_ event ; 
° 4281 
SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE Job Management : job scheduier monitor mode 
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PROCEDURE [XDCL] jmp$set_swapout_ candidate 
( ajl_o: jmt$ajl_ordinal; 
Swapout_ reason: jmt$swapout reasons) ; 


VAR 
ajle_p: Ajmt$active_job_list_entry, 
guaranteed service quantum: jmt$service_ accumulator, 
ijle_p: Ajmt$initiated_job_list_entry, 
ijl_ord: jmt$ijil_ordinal, 
service used: integer ; 


#KEYPOINT losk$entry, ©, jmk$set_swapout_candidate) ; 


ajle_p := Ajmv$aji_p4 [aji_ol; 
tTjle_p :2 ajle_pA.ijle_p; 
IF ijle_pA.entry_ status = jmc$ies _ job_in_memory THEN 
IF jmv$swap_jobs_in_long wait THEN 
ijl_ord :5 ajie_ pA.ijl_ordinal; 
ijle_pA.estimated ready time :: #FREE_RUNNING CLOCK (0) + ijle_pA.last_think_time; 
jmp$caiculate_ service (ijle_p, service used) ; 
check_for_ciass_switch (ijle_p); 
ijle_pA.job_scheduler_data.swapout_reason := swapout_reason; 
IF (Swapout_reason = jmc$sr_idie_ dispatching) AND (jmv$service_classes 
[ijle_p*. job scheduler _ data.service_class]4.attributes.guaranteed_ service quantum = 
jimc$unlimited service _accum) THEN : 
ijle_pA. job _scheduler_data.guaranteed service remaining := jmc$unlimited service _accum; 
ELSEIF (swapout_reason = jmc$sr_idie_ dispatching) AND 
(ijle_pA. job_scheduler_data.service accumulator since _swap < 
jmv$service classes [ijle_pA.job_scheduler_data.service_class]4.attributes. 
guaranteed service quantum) THEN 
ijle_pA. job scheduler data.guaranteed service remaining := 
guaranteed service quantum - ijle pA. job _ scheduler data.service_accumulator_since_swap; 
IFEND; 
ijle_pA.job_scheduler data. job swap_counts.long wait := 
ijle pA. job_scheduler _data.job swap counts. long wait + 1; 
jisp$monitor swap out (ijl_ord); 


{ 1f the service class is at the maxaj limit, remove the class so a job 
{ with this service class can be activated. 


IF (ijle_ pA. job_scheduler _data.service_ class IN jmv$classes_in_maxaj_limit wait) THEN 
remove _class_from_maxaj_ limit (ijie_p%. job_scheduler_data.service_ class) ; 
IFENO; 
ELSE 
ajle_ pA. job_is_good swap_candidate := TRUE; 
IFEND; 
IFEND; 


#KEYPOINT (osk$exit, 0, jmk$set_swapout_ candidate) ; 


PROCEND jmp$set_swapout_ candidate; 
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SOURCE LIST OF jmm$ job_scheduler_monitor_ mode NOS/VE CYBIL/II 1.06 89102 1889-08-21 13:33:34 
NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$subsystem_priority_ change 

° 4337 

° 4338 { PURPOSE: 

o 4339 { The purpose cf this procedure is to set a scheduler event if a swapin candidate 

Oo 4340 { job has had its scheduling dispatching priority changed because of subsystem locks. 

3° 4341 { DESIGN: 

© 4342 { The caller of this procedure must set the PTL lock. 

° 4343 

oO 4344 PROCEDURE [XDCL] jmp$subsystem_priority change 

4 4345 ijle_p: Ajmt$initiated_job_list_entry); 

4 4346 

4 4347 IF (ijle_p4.entry status = jmc$ies_swapin_candidate) AND 

1E 4348 {ijle_pA.scheduling_dispatching_priority > ijle_pA.dispatching_control.dispatching priority) THEN 

1E 43493 jmv$subsystem_priority_ changes [ijlte_ pA. job_scheduler_data.service class] := TRUE; 

1E 4350 jmp$set_scheduler_event (jmc$subsystem_priority change) ; 

SE 4351 IFEND; 

SE 4352 

5E 4353 PROCEND jmp$subsystem_priority change; 

° 4354 
SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE Job Management : job scheduler monitor mode 
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PROCEDURE [XDCL] jmp$swap_non_dispatchable_job 
( ajl_ordinal: jmt$ajil_ordinal} ; 


ijl_ordinal: jmt$ijl_ordinal, 
ijle_p: Ajmt$initiated_job_list_entry; 


ijle_p := jmv$ajil_pA [ajl_ordinal].ijle_p; 
ijl_ordinal := jmv$ajl_pA [aj l_ordinal].ijl_ordinal; 
jimp$set_swapout_ candidate (ajl_ordinal, jmc$sr_idie_dispatching) ; 


{ Jmp$set_swapout_candidate swapped the job and caused entry status to be changed to job_swapped. 
{ The job was artificially idled, so it must be put in the ready task list to swap back in. 


jmv$swapped_idie_disp_count :: jmv$swapped_idie_disp_count + 1; 
imp$change_ijl_entry_ status (ijle_p, jmc$ies_ready_task) ; 
insert _job_in_ready_task_list (ijl_ordinal, ijle_p); 

jimv$ job_scheduler_event [ jmc$ready_task_in_job] := TRUE; 


PROCEND jmp$swap_non_dispatchable_job; 
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SOURCE LIST OF jmm$job_scheduler_monitor_ mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$update_serv_class_stats_req 


Oo 4379 
© 4380 { PURPOSE: 
fe) 438i { This procedure processes the monitor request to update service class statistics. 
© 4382 { DESIGN: 
3° 4383 { The service class Statistics updated by this procedure must be updated in monitor mode 
fe) 4a38e4a { in order to synchronize writing the statistics variable. This procedure is called via 
fe) 4385 f{ amonitor request at statistics emission time. All initiated jobs are scanned for 
o 4386 { statistics information. 
Oo 4387 
oO 4388 PROCEDURE [XDCL] jmp$update_serv_class_stats_regq 
oO 4389 (VAR request block: jmt$rb_service_class statistics); 
oO 4390 
oO 4391 VAR 
oO 4392 ijl_bn: jmt$ijil_block_number , 
Oo 43393 ijl_bi: jmt$ijl_block_index, 
oO 4394 ijl_ordinal: jmt$ijl_ordinal, 
° 4395 ijle_p: Ajmt$initiated_job_list_entry; 
Oo 439396 
° 4397 request biock.status.mormal := TRUE; 
4 4398 
4 4399 FOR iji_bn := LOWERBOUND (jmv$ijl_p.bleck_pA) TO jmv$ijl_p.max_block_in_use DO 
22 4400 IF (jmv$ijl_p.block_p4 [ijl_pn].index_p <> NIL) THEN 
34 4401 ijl_ordinal.block_ number := ijl_bon; 
34 4402 FOR ijl_bi : = LOWERVALUE (jmt$ijl_block_index) TO UPPERVALUE (jmt$ijl_bleck_index) DO 
46 4403 1jl_ordinal.block_ index :+ ijl_bi; 
46 4404 jimp$get_ijle_p (ijl_ordinal, ijle_p); 
46 4405 IF ijle_pA.entry_ status <> jmc$ies_entry_free THEN 
72 4406 imp$update_service_ciass stats (ijle_p); 
8&2 4407 IFEND ; 
82 4&408 FOREND; 
8A &409 IFEND; 
8A 4410 FOREND ; 
8E 4411 
8E 4412 PROCEND jmpSupdate serv _ciass_stats_req; 
oO 4413 
SOURCE LIST OF jmm$job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE Job Management : job scheduler monitor mode 
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PURPOSE: 
The purpose of this procedure is to update the service class statistics for a 
service class with the information of a specific job. The service class statistics 


accumulators for the job are updated. 


PROCEDURE [XDCL] jmpSupdate_service_class_ stats 
( ijle_p: Ajmt$initiated_job_list_entry) ; 


VAR 
statistics_p: Ajmt$mtr_serv_class_stat_entry; 


Update cp statistics. 
tmp$set_lock (jmv$service_class_ stats_lock) ; 


statistics p :* Ajmv$service_classes [ijle_p4.job_scheduler_data.service cilass]4.statistics; 

statistics pA.cp_time.job_mode := statistics _p%.cp_time. job_mode + = 
(ijle_pA.statistics.cp_time.time_spent_in_job_mode - 
ijle_pA.service class_statistics.cp_time.time_spent_in_job_mode} ; 

ijle_pA.service_ class _statistics.cp_time.time spent_in_job_mode : = 
ijie_pA.statistics.cp_time.time_ spent_in_job_mode; 


statistics pA.cp_time.monitor_mode :: statistics _pA.cp_time.monitor_mode + 
(ijle_pA.statistics.cp_time.time_spent_in_mtr_mode - 
ijle_pA.service_ class statistics.cp_time.time_spent_in_mtr_mode) ; 


ijle_pA.service class _statistics.cp_time.time_spent_in mtr mode := 
ijle_pA.statistics.cp_time.time_spent_in_mtr_mode; 


Update page fault statistics. 
statistics pA.page_ faults.disk := statistics _p4.page_faults.disk + 


(ijle_pA.statistics.paging statistics.page_in_count - 
ijle_pA.service_class_statistics.page_faults.disk); 


ijle_pA.service_ class _ statistics.page faults.disk := ijle_pA.statistics.paging statistics.page_in count ; 


statistics pA.page faults.reclaimed := statistics _p%.page faults.reclaimed + 
(ijle_ pA.statistics.paging statistics.pages_reclaimed_from_queue - 
ijle_p4%.service_ class statistics.page faults.reciaimed) ; 

ijle_p”.service_ class _statistics.page faults.recliaimed := 
ijle_pA.statistics.paging statistics.pages reclaimed, from_queue; 


statistics pA.page_faults.assigned := statistics _pA.page faults.assigned + 
(ijle_pA.statistics.paging statistics.new_pages assigned - 
ijle_pA.service_class_statistics.page_ faults.assigned) ; 

ijle_pA.service class _ statistics.page faults.assigned :=: 
ijle_pA.statistics.paging statistics.new_pages_ assigned; 


Update swapping statistics. 


statistics pA.swap_stats.long wait swaps := statistics pA.swap_stats.long wait Swaps + 
{ijle_ pA. job_scheduler data. job_swap_counts.long wait - 
ijle_pA.service class _statistics.swapouts. long wait); 

ijle_pA.service class statistics.swapouts. long wait := a 
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PAGE 


70 


SOURCE LIST OF jmm$job_scheduler_monitor_mode 


NOS/VE Job Management 


[XDCL] 


xe 


*x*** NO DIAGNOSTICS 


4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 


REFERENCES OF 


NOS/VE Job Management 


[XDOCL] 


IDENTIFIER 


actual 
actual 
ajl_o 


ee ee) 


ajl_ordinal 


ajile_p 
ajlo 


assigned 
assigned 
attributes 


cooococoongoogo 


biock_ index 


block number 


biock_p 


blecked 


calculate circular service 
call job _swapper 

change _service class 
changes pointer 


check_controis 


check for_class_switch 
check_swapin_queue 


tmp$cilear_ lock 


job scheduler monitor mode 
imp$update service _class_stats 


MODEND jmm$ job_scheduler_monitor_mode; 


1=$05578173AS0102D19890821T183254 


jmm$ job_scheduler_monitor_mode 


job scheduler monitor mode 
jimp$update_ service _cilass_stats 


DEFINED 
ON LINE 
1450 
3316 
4285 
4358 
4289 
4076 
520 
2668 
2558 


1704 
3427 
3556 
3726 
3764 
3872 
3911 
3939 
4047 
4112 
4141 
4421 
1705 
3427 
3556 
3726 
3764 
3872 
3911 
39339 
4047 
4112 
4141 
4421 

45 


44 


1153 


2015 


35893 
41493 
1937 
3559 
3445 
3271 
3377 


REFERENCE ABBREVIATIONS 


L=Z2Z2XXLIST 


NOS/VE CYBIL/II 


statistics p%.swap_ stats. job _mode swaps := 
(ijle_ pA. job_scheduler_data. job _swap_counts. job_mode - 
ijle_pA.service_class_statistics.swapouts. job_mode) ; 

ijle_ pA.service class _statistics.swapouts. job _mode 


PROCEND jmp$update service _cilass_ stats; 


NOS/VE CYBIL/II 


1.0 8831602 


(jmv$service_class stats_lock); 


B=LGO DA=NONE 
1.0 88102 
REFERENCES 
1487 1490/M 
3333 3333/M 
4297/S 
4364/S 4365/S 
4297/M 4298 
4084 4085/S 
4460 4461/M 
4458/M 4458 
3282 3288 
4002 4307 
1711 1712 
3456 3456 
3575 3575 
3734 3734 
3775 3775 
3886 3886 
39193 3919 
3976 3976 
4058 4058 
4124 4124 
4171 4171 
4429 4429 
1708/M 1709 
3456/M 3456 
3575/M 3575 
3734/M 3734 
3775/M 3775 
3886/M 3886 
3913/M 3919 
3976/M 3976 
4058/M 4058 
4124/M 4124 
4171/M 4171 
4429/M 4429 
1327/8 3381/S 
3917/S 3989/8 
1327/S 3381/Ss 
3917/S 3989/S 
1327 3381 
3848 3879 
4162 4237/M 
3372 3491 
3589 3597 
4156/M 4186/M 
3582 
35793/M 3581 
3445 3450 
3303 4304 
3377 3384 


ijle_p%. job_scheduler_ data. job swap_counts. long wait; 


1989-08-21 


statistics _p4.swap_stats. job mode swaps + 


ijle_p4.job_scheduler_ data. job_swap_counts. job mode; 


=R RC=SNONE 


4366/P 
4301 


3380 
4312 


1713 
3456 
3575 
3734 
3775 
3886 
3919 
3376 
4058 
4124 
4171 
44293 
3616/M 
4053/S 
3614/M 
4053/S 
3612 
3917 
4399 
3492/M 


3600 
4183 


3581 
3452 


3387 


OPT=SCHED 
4328/M 
3398 3585/M 
3618/S 3740/M 
4119/8 4164/M 
3618/S 3739/M 
4119/S 4163/M 
3613 3618 
3989 4053 
4400 4404 
3889 
3582 3584 


F LFzCS612 


1989-08-21 


3806 


3741/S 
4403/™M 
3741/8 
4237/8 
3736 
4119 


3601/M 


13:33:34 PAGE 71 
PAD:=0 
13:33:34 PAGE 72 
3989 3991 
3848/S 3879/S 
4404/S 
3848/S 3879/5 
4401/M 4404/S 
3737 3741 
4159 4160 
36061 


Mzsmodify, Aztattribute, S=subscript, I:1/0 ref, R:read, Wewrite, Pzparameter 


REFERENCES OF jmm$ job_scheduler monitor mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 73 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update_ service class stats 
TOENTIP IER =< 3c ee Sn = Se ess ee = = DEF UNE Dies Sie eee ee = REFERENCES 
ON LINE 
check _swapin_queue 3939 3989 3989 39893 
circular_service 3560 3587/M 3594/M 3594 3624 3625 
class 3561 3582/M 3583 3585/S 3587/S 3594/58 3594/S 
class_service_ threshold 2576 3283 3284 
“classes _ changed 3562 3571/M 3583/M 3583 3619 
clear 1318 1508/M 3538/M 3638/M 3752/M 3786/M 3832/M 3892/M 3933/M 
3981/M 4060/M 4127/M 4174/M 4477/M 
_ condition 14198 1424 
condition 1648 1424/M 3713/M 3898/M 
condition 3680 3713 
condition 3872 3898 
controls 1257 3481/M 3483 3486/M 3503/M 3506/M 3512/M 3513 3521 
controls 20083 3372 3491 3432/M 3433/M 3494/M 3989 
controls defined 1253 3476/M 3478/M 
_ controls defined 3433 3442/M 3449/M 3475 
“count 1315 1505 1506/M 1506 1715/M 1715 3456/M 3456 3538 
3538/M 3538 3575/M 3575 3638 3638/M 3638 3734/M 
3734 3752 3752/M 3752 3775/M 3775 3786 3786/M 
3786 3832 3832/M 3832 3886/M 3886 3892 3892/M 
3892 3919/M 3919 3933 3833/M 3933 3976/M 3976 
3981 3981/M 3981 4058/M 4058 49060 4060/M 4060 
4124/M 4124 4127 4127/M 4127 4171/M 4171 4174 
4174/M 4174 4429/M 44293 4477 4477/M 4477 
count 4077 4079/M ao08s86/M 4086 4087 40396 
count _active_jobs 4083 4083 4088 40931 
cp_service_at_class_switch 369 3623 3818/M 
cp_time 512 4434 4435/M 4440 4442/M 
cp_time SS7 3621 3622 3819 3820 4433 4436 4439 4443 
cp_time 2655 8432/M 4432 4438/M 4438 
cpu_dispatching_ allocation 2120 3447 3448 3485 3488 3505 3508 3515 
current _ time 3944 3962/M 3965 3972 3979 
defined 2568 3289 
delayed swapin_work $9 3743 4062 4063/M 4063 
dfc$command_ record bytes 169 177 
dfc$division_overwr ite words 156 184 
dfc$esm_command_record_ size 177 185 
dfc$esm_header_record size 178 185 
dfc$esm_maintenance_buf_ size 157 188 
dfc$esm_memory _base_shift 163 185 186 186 
dfc$header_record bytes 168 178 
dfc$max_esm_memory size 158 187 
dfc$max _number_of mainframes 165 150 
dfc$min_data_record bytes 173 184 
dfc$min_esm_division_size 183 187 
dft$mainframe_set 150 100 101 277 278 
disk 518 4449 4450/M 
disk 2666 4447/M 44a7 
dispatching allocation_interval 2122 3482 
dispatching control 82 3623 3809/M 3810 3814/M 3816/M 3818/M 4348 
dispatching control 2584 3585/M 3812 3815 3817 
HEE REFERENCE ABBREVIATIONS Mzmodify, Azattribute, Szsubscript, I:1/0 ref, Reread, Wewrite, P=parameter 
REFERENCES OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 PAGE 74 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update_service_cilass_stats 
~IDENTIFIER-+c rrr terete rr een DEF ENED s**:.ccs:e sce 2 sein Soe ste REFERENCES 
ON LINE 
dispatching control changes_p 1933 3579 
dispatching controi_changes_p 1839 36061 
dispatching control_index 364 38039/M 
dispatching control index 3563 3530 3591/8 3592/S 3595/8 
dispatching control info 1938 3584 
‘dispatching control p 3564 3584/M 3585 3591 3532 3595 
dispatching priority 365 3810 3814/M 4348 
dispatching priority 378 3812 3815 
dispatching priority 3364 3372/S 3382 
dispatching priority 3939 39839/S 3989 
dispatching priority_time 1268 3486/M 3503/M 3506/M 3512/M 
dmt$system_file_id 199 132 
dp 3434 3446 3447/S 3448/S 3484 3485/S 3486/S 3488/S 3490 
3491/S 3492/Ss 3493/S 3494/S 3495/S 3496/S 3439 3503/8 
3505/S 3506/S 3508/S 3510 3512/S 3515/S 3517 3531 
3532 3535/S 
dp_unbiocked 3435 3443/M 3500/M 3540 
enforce maximum 2154 3515 
enforce maximums 1256 3480/M 3516/M 3516 
enforce maximums 12832 3472/M 
entry status 68 1353 1358/M 3742 3744 3744/M 3777 3792 3881 
3887 3887/M 3895 3963 4006 4006/M 4055 4055 
4056 4059 aoss/M 4120 4125 4125/M 4166 4172 
4172/M 4213 4213/M 4236 4236/M 4299 4347 4372 
. 4372/M 4405 
estimated ready time 89 3965 4302/M 
event 3404 3409/S 3409/S 3409/S 
event 3427 3541/Ss 3541/8 3541/S 3542/8 3542/S 3542/Ss 
event 3764 3828/58 3828/S 3828/S 
event 38339 3959/8 3959/8 39359/S 
event 4047 4065/S 4065/S 4065/S 
event 4073 4037/S 4097/S 4097/S 
‘event 4232 4238/S 4238/S 4238/8 
event 4257 4262/S 4263/S 4264/S 
event 4344 4350/S 4350/S 4350/S 
final 1449 1487 1490 
final 3316 3333 3333 
forward 1ink 947 3849 
forward Tink 1214 3845 
agftS$file descriptor_index 214 204 
. gf tS$system_file_ identifier 203 199 1016 
‘gft$table_residence 217 205 
guaranteed service quantum 2577 4307 4313 
guaranteed service quantum 4290 4315 
“guaranteed service remaining 118 3398 4001/M 4309/M 4314/M 
i#program_error 1516 1503 3538 3638 3752 3786 3832 3892 3833 
3381 4060 4127 4174 4a77 
exe REFERENCE ABBREVIATIONS : Memodify, Atattribute, Sssubscript, ItI/0 ref, Rtread, Wewrite, Pzparameter 


REFERENCES OF 


NOS/VE Job Management 


jmm$ job_scheduler monitor_mode 


[XDCL] jmp$update_service_class_ stats 


IDENTIFIER- eee ee eee ee eee eee eee 


id 


ignore status 
ijl_bi 
bi 


wht ate 
[ 
—i owl 


tit til 


omomes 
335 


oF 


—_ 
[a 
mt 


“integer 


ooo 


rd 


hae, Cis, haw, Cas. Cae, Snes Cans Coe, Rae, Cie, Cams Cae, fae, Cae: 


i 
i 
i 
j 
i 
7 
i 
i 
i 
i 
i 
i 
i 
i 
i 


tas. 


ijl_ordinal 
ijjl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_erdinal 
1jl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
iji_ordinal 
ijl_ordinal 
ijl_lp 

ijl_p 
ro 
i 


i 
ijle_p 
i 


REFERENCES OF 


NOS/VE Job Management 


AE 


DEFINED 
ON LINE 
1316 


REFERENCE ABBREVIATIONS 


jmm$ job_scheduler_monitor_mode 


[XDCL] jmp$update_service_class_stats 


IDENTIFIER------ ee ett ter ee eee 


ijle_p 
ijle_p 
ijle_p 
ijle_p 
ijle_p 


ijle_p 
ijle_p 
i#jie_p 
ijle_p 
ijle_p 
ijle_p 
ijle_p 
ijle_p 


ER 


DEFINED 
ON LINE 
3318 
3363 
3367 
3556 
3568 


3645 
3663 
3726 
3726 
3726 
3726 
3732 
3764 
3764 
3770 


3838 


REFERENCE ABBREVIATIONS 


job scheduler monitor mode 


we ewe enenwsansaee ese ewe 


job scheduler monitor mode 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 891602 
REFERENCES 

1502 1708 1713/M 
3638 3734 3734/M 
3886 33886/M 3892 
3981 4o0s8 4058/M 
4171/™M 4174 4429 
3351/P 
3615 3616 
3738 3740 
4161 4162/5 4164 
4402 4403 
3612 3613/5 3614 
3736 3737/S 3739 
&159 4160/S 4162/S 
4399 4400/S $401 
3329/P 3331 3332/P 
4053/P 
4119/P 4126/P 
3993/P 4007/P 
4301/M 4319/P 
4301 4365 
1327/S 1327/8 
3689/P 3917/P 3929/P 
3326/M 3330 
3326 
3381/S 3381/S 
3618/5 3618/S 
3614/M 3616/M 3617 
3741/8 3741/8 
3739/M 3740/M 3741/P 
3848/S 3848/S 
3845/M 3847 3847 
3879/S 3879/8 
3879/P 3890/P 
3917/8 38317/S 
3989/S 39839/S 
4053/5 4053/S 
4119/8 4119/8 
4163/M 4164/M 4173/P 
&214/P 
4237/S 
436S5/M 4373/P 
4404/5 4404/S 
4401/M 4403/M 4404/P 
4053/P 4o0s5 4oss 
4119/P 4120 4125/P 
4298 4364 
1327/M 
1362 1362 
1366 1366 
1353 1358/M 1362/P 
3282/S 3283 3286 

Mzemodify, Azattribute, 

1.9 89102 
REFERENCES 

3330/M 
3381/M 
3381/P 3382 
3618/M 
3609/M 3618/P 3615 
3626/S 3631/P 
3651 3652 
3669 3670 
3741/M 
3744 3744/M 3744/P 
3744 3744 
3744 3744 
3741/P 3742 3743 
3793 3733 
3795 3795 
3773/P 3777 3777 
3793/P 3794/M 3795/P 
3811/M 3814/M 3816/M 
3848/M 
3848/P 3849 
3879/M 
3887 3887/M 3887/P 
3887 3887 
3887 3887 
3879/P 3881 3887/P 
3917/M 
3917/P 3921/S 3922/S 
3931/P 
3989/P 39389 
3989/M 
4006 4006/M 4006/P 
4006 4006 
4006 4006 
3956 3957/M 3963 
3974 3978 3988 
4002/M 4006/P 4007/P 
4053/M 
4059 4059/M 48059/P 
4059 4059 
40595 40593 
4119/M 
4125 4125/M 41258/P 
4125 4125 
4125 4125 
4172 4172/M 4172/P 
4172 4172 
4172 4172 
4162/M 4166 4167 
4213 4213/M 4213/P 
4213 4213 
4213 4213 

Memodify, Azattribute, 


4423/M 


4163 


3333/P 


3618/P 
3745/P 


3848/P 


4056 
4126/P 


1366/P 
3292 


S=subscript, 


3620 


3744/P 


3744/P 


3773 
3797/M 
3818/M 


3887/P 


3888 


3924/S 


4006/P 


3965 
3989/P 


4059/P 


4125/P 


4172/P 


4172/P 
4213/P 


Sesubscript, 


1889-08-21 13:33:34 
3456/M 3536 3575 3575/M 
3775 3775/M 3786 3832 
39319/M 3933 3976 39376/M 
4124 4124/M 4127 4171 
4Aa7T7 
3631/P 
3850/P 3851/M 
4059 /P 4062 4063/M 4063 
4130 4132 
3295 3296 

Iz1/0O ref, R=read, Wewrite, 


3621 


3745/P 


3783 
3808/M 
3819 


3889/M 


3925/S 


3365 
3390 


4173/P 


1sI/0 ref, 


1889-08-21 


3622 


3785 
380393/M 
3820 


3890/P 


39326/S 


3967/M 
39398 


4180 


13:33:34 
3623 3624/Ss 
37390/P 3792 
3810 3810 
3821/P 
3835 
3927/8 3929/P 
3969/M 39372/M 
3399/M 4001/M 
4181 


Reread, Wswrite, 


75 


Pz=parameter 


PAGE 76 


P=parameter 


REFERENCES OF jmm$ job_schedule 


NOS/VE Job Management job sch 


[XDCL] jmp$update_service_ciass 
IDENTIFIER------+-+-++---+-+---- D 
0 


jmc$ies_ready_task 
jmc$ies_ swapin_candidate 
jmc$ies swapin_in_progress 


jmc$ies_swapped_in 

‘jme$ies system_force_out 
jmc$iss_idie_tasks_ initiated 
jmc$S$iss_ job_alloecate_swap_file 
imc$iss_swapin_io_complete 
imc$iss_swapin_requested 
imc$iss_swapout complete 
_jmc$iss_swapped_io_cannot_init 
jmc$iss_swapped_io_ complete 
jmc$iss_swapped_no_io 

jimc$ job_terminated 
jmc$keyword_ offset maximum 
imc$k jl_maximum_entries 
jmc$ko1_maximum_entries 
jmc$max_active_ jobs 
jmc$max_ajl_ord 
jimc$max_completed_ job_count 
jimc$max_dispatching control 
jmc$max_ dispatching priority 
jmc$max_ijl_entries 
jimc$max_ijil_index_count 
imc$max_ijl_ord 
jmc$maximum_job_categories 
jmc$maximum_job_classes 
jmc$maximum_job_ count 
‘jmc$maximum_output count 
jmc$maximum_service_classes 
jmc$min_dispatching_ control 
jmc$min_ dispatching priority 
“jmc$min_ecc 

jmc$min_ecc_ sch 


imc$needed_ memory avai lable 
imc$null_service_ciass 
Jjmce$priority_aging_interval_max 
imc$priority bias maximum 
jmc$priority pi 
_ime$priority pio 


xt 


r_monitor_mode NOS/VE CYBIL/II 
eduler monitor mode 
_stats 
EFINED-----++++2see*-5-->5 REFERENCES 
N LINE 
458 4006/P 
4593 4347 
453 462 
3744 
4006 
4125 
4213 
4372 
462 3792 
456 3895 
469 496 
473 4181 
494 437 
490 437 
489 496 
480 507 
485 3390 
471 506 
2085 4238/P 
691 2620 
238 231 
248 233 
223 2601 
230 223 
2073 2066 
404 408 
326 286 
52 1215 
53 1164 
231 2701 
2037 2034 
604 607 
245 238 
255 248 
707 710 
403 407 
327 1238 
1770 1771 
1778 1779 
1795 
1811 
1837 
1863 
1889 
1818 
2100 4277/8 
700 701 
2618 2616 
2354 2350 
340 287 
349 288 


REFERENCE ABBREVIATIONS 


TEFERENCES OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update_service_class_ stats 
IDENTIFIER------ ere eer eee eee DEFINED---- se errr renee REFERENCES 
ON LINE 
ijgleop 4208 4213/P 4214/P 
‘jjle_p 4232 4236 4236/M 
ijle_p 4232 4236 4236 
ijle_p 4232 4236 4236 
ijle_p 4234 4236/P 
ijle p 4291 4298/M 4299 
4309/M 4311 
4325/P 
ijle_p 4345 4347 4348 
ijle_p 4357 4372 4372/M 
ijle_p 4357 4372 4372 
ijle_p 4357 4372 4372 
ijle_p 4362 4364/M 4372/P 
ijle_p 4388 4404/M 
ijle_p 4395 4404/P 4405 
i+#jle_p 4422 4431/S 4433 
4443 4448 
4456 4459 
4470 4473 
ijlo 3321 3326/M 3332/P 
ijlo 3771 3773/P 3821/P 
Tn_ use 23 4oss 
index p 1166 1327 3381 
3917 3989 
initial 1448 1487 
initial 3316 3333 
insert _job_in_ready_task_list 3316 3336 4007 
ioc$no_error 1102 4167 
iot$io_error 1102 133 1056 
jmc$batch 610 3620 
jmc$cali_job_swapper 2089 3409/P 
jime$dc_maximum_service_limit 393 3593 
jimc$dp_conversion 324 3430 3499 
jmce$dsw_job_recovery 266 3743 4062 
jime$dsw_recovery swap_io_error 268 4064 
jmc$examine_input_queue 2097 3349/S 3542/P 
jimc$examine_swapin_queue 2098 3350/S 3541/P 
4218/5 
jmc$highest_prio_age_interval 2628 2619 2629 
jmc$highest_sched memory level 2377 2370 
imec$highest_ service accumulator 674 675 
imc$highest service _factor valu 2652 2645 
jmc$highest_service_interval 2393 2386 
jmc$highest_working set_size 2771 2762 2772 
jmc$ies_ entry _ free 44g 3742 4405 
imec$S$ies_ job_in_memory 452 4239 
jmc$ies_job_in_memory_non_swap 451 3777 
jmc$ies_job_swapped 454 463 3744/P 
jme$ies_job_terminating 450 4236/P 
jmc$ies_operator_force_out 4s5 3881 4056 
ex REFERENCE ABBREVIATIONS Memodify, 


1.0 893102 


4125/P 


1360 
3887 
4os5 
4125 
4213 
4372 


4059/P 


4180 


4217 
4236/P 


4302/M 
4312/S 


4348 
4372/P 
4373/P 
4406/P 
4434 
4449 


4460 
44874 


3613 


4053 


4126 


3510 


3987/S 
3958/S 


2774 


3887/P 


Aztattribute, 


4172/P 


1361 
3887 
4059 
4125 
4213 
4372 


4166 


626 


2610 


290 


3809 


1783 
1799 
1818 
1843 
1869 
1836 
1924 


3446 


4219 
4236/P 


4302 
4314/M 


4349/5 
4372/P 


4435/M 
4450/M 
4461/M 
4475/M 


3618 


4119 


4173 


3517 


3959/P 


2776 


3363 


=subscript, 


4213/P 


1364 
3887 
4059 
4172 
4236 


1238 


3812/8 


1785 
1801 
1822 
1846 
1872 
1899 


3484 


4303/P 
4315 


4436 
4450 
4462 
4475 


3737 
4160 


4214 


3532 


48010/S 


2778 


4055 


&4372e/P 


1365 
3887 
40595 
4172 
4236 


3815/8 


1787 
1803 
1825 
1850 
1875 
1903 


3531 


Tz=1/0O ref, 


1889-08-21 


4304/P 
4317/M 


4439 
4453 
4467 


3741 
4162 


4373 


4012/S 


1989-08-21 


3744 
4006 
4059 
4172 
4236 


3817/8 


17893 
1805 
1828 
1853 
1878 
1907 


Rz=read, 


13:33:34 PAGE 77 
4305/M 4307/S 
4318 4324 
4440 4442/M 
4454 4455/™m 
4468 4469/M 
3848 3879 
4400 4404 
4131/S 4177/8 


We=write, 


Pzparameter 


13:33:34 PAGE 78 
3744 3744 
4006 4006 
4120 4125 
4172 4213 
4236 4372 
1791 1783 
1807 1809 
1831 1834 
1857 1860 
1882 1886 
1911 1915 


M=modify, Atattribute, Stsubscript, I:I1/0 ref, Reread, Wswrite, P=sparameter 


REFERENCES OF jmm$job_schedule 


NOS/VE Job Management job sch 


[XDCL] jmp$update_service_class 
IDENTIFIER----------- or Sree ate 
o 


jimc$priority p14 
jmcS$priority_pé 

jmc$ready_ task_in_job 
jmc$recovery swap_io_error 
jmc$required offset 
jmc$reserved_ajis 
jmc$sched_profile deadstart_id 
jmc$scheduler_wake_t ime 
jmc$scheduling_memory_level_max 
jmc$service accumu lator_maximum 
jimec$service_factor_value_max 
jme$service interval_maximum 
jmc$sr_idile dispatching 
jme$sr_thrashing 
jmc$src_change_ dispatching ctrl 
jme$src_class_ switch 
jmc$src_cleanup_unrecovered_ job 
jmc$sre_ dispatching allocation 
jme$src_idling_advance_swaps 
jme$src_operator_swap_in 
jmc$src_process_damaged_ jobs 
jmc$src_sched_profile_ loading 
jme$src_swapin_recovered_ jobs 
jmec$ssn_counter_size 
imc$ssn_model_number_size 
jmc$ssn_sequence_mumber_size 
jmc$ssn_serial_number_size 
jmc$subsystem_priority_ change 
jimc$swap_jobs_for_lower_maxaj 
ime$system_default_offset 
jimc$system_is_thrashing 
jimcSsystem_service_class 
jimc$system_supplied_name_size 
imcSunlimited_offset 
jmcS$unlimited_ service_accum 
imc$unspecified_ offset 
jmc$working set _size_maximum 
jmeSinvalid_scheduler request 
jme$ job_dead_cannot_swap 
jmk$base 


jmk$ready_ task_in_swapped_job 
jmk$set_swapout_ candidate 
jmp$activate job_mode_swapper 
jmp$calculate_service 


KX 


REFERENCES OF jmm$job_ scheduler _monitor_mode NOS/VE CYBIL/II 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update_service_cilass_ stats 
IDENTIFIER- + --- ee eee ee er tte ee DEFINED----+-- eee ee ee -~REFERENCES 
ON LINE 
jmp$change_dispatching_alloc | 3427 3545 
jimp$change_ dispatching mtr_req 3556 3640 
jmp$change_ijl_entry_status 1346 1369 
4236 
jmp$decrement_swapped_ job count 3644 1366 
4172 
jimp$find_jsn 1370 3773 
imp$get_ijle_p 1323 1329 
4053 
jmp$Sincrement_swapped_job_ count 3662 1362 
4172 
jmp$mtr_job_ scheduler requests 3680 3716 
imp$mtr_swapin_recovered_ jobs 3726 3710 
jmp$process_class_ switch 3764 3298 
jmpS$process_idling_adv_swaps 3838 3692 
imp$process_ oper _swapin_mtr_req 3872 3689 
imp$process_unrecovered_job 3911 3701 
jimp$ready_task_in_swapped_job 3939 3745 
jmp$recognize_job_dead 4047 4069 
imp$recognize_ thrashing 4073 4103 
jmp$reset_job_to_swapped_ out 4112 4137 
jmpSresurrect_dead_ jobs 4141 4197 
jmp$set_entry status _ to rt 4206 4224 
imp$set_job_ terminated 4232 4240 
imp$set_sched_ profile _loading 4248 3704 
jmp$set_scheduler_event 4256 3409 
4268 
imp$set_scheduler_memory_event 4272 4280 
imp$set_swapout_ candidate 4284 4334 
imp$subsystem_priority change 4344 4353 
jmp$swap_non_dispatchable_job 4357 4376 
jmp$update_serv_class_stats_req 4388 4412 
jmpSupdate_service_ciass_ stats 4421 3790 
jmtS$active_job_list 30 8 
jmtS$active_job_list_entry 22 30 
jmt$ajl_ordinal 223 69 
jmtS$change dispatching list 1931 3199 
jmt$completed_ job _count_range 2066 2060 
jmt$cpu_dispatching_ allocation 2148 2120 
jmt$delayed_swapin_work 270 $9 
jmtSdispatching allocation 2151 2149 
jimt$dispatching control 374 1938 
jimt$dispatching control changes 1936 1833 
jmtS$dispatching control_ index 407 364 
jmt$dispatching controls 377 375 
jmtSdispatching_interval 2159 2122 
jmtSdispatching priority 286 81 
3364 
jmtS$dispatching_ priority set 1262 1254 
2008 
3498 


HEE 


r_monitor_mode 


eduler monitor mode 
_Sstats 


EFINED----------------REFERENCES 


N LINE 
353 : 
347 

2084 
2086 
68S 
234 
1755 
2099 
2370 
S66 
2645 
2386 
720 
715 
2402 
2401 
2402 
2403 
2401 
2400 
2404 
2403 
2404 
2731 
2737 
2696 


2884 
2836 
3404 
1334 


REFERENCE ABBREVIATIONS 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


1.0 8810602 


1989-08-21 


‘288 
287 3446 3484 3531 
4008/5 4129/5 4176/8 4216/8 4374/S 
4065/P 
2777 
229 
3219 
3348/S 
2367 
663 
2642 
2383 
4306 4310 4366/P 
3988 
2425 3697 
2418 32391 3694 
2415 3700 
2429 3706 
2417 3691 
2415 32688 
2433 
2427 3703 
2431 3708 
2728 
2734 
2633 
2740 
4350/P 
3828/P 
691 27793 
4037/P 
3378 3989 
928 1370 
676 2630 2773 
3284 4308 4309 
2775 
2759 
3713/P 
3898/P 
2788 2732 2796 2800 2804 2808 
2820 2824 2828 2832 2836 2840 
2852 2856 2860 2864 2868 2872 
2884 2888 2892 2896 2300 2904 
2916 2920 2924 2328 2932 2936 
2948 2952 2956 2360 2364 2968 
2980 2984 2988 2992 2996 3000 
3012 3016 
3950 40193 
4295 4332 
3411 $194 
4303 
Msmodify, Aztattribute, S:subscript, =I/O ref, 


: Memodify, 


1.0 89102 


3707 
3698 
3744 
A372 
3658 
4213 


3381 
4119 
3676 
4213 


3754 
3695 
3854 
3801 
3835 
3890 


Atattribute, 


1989-08-21 


3887 4006 4059 4125S 
3744 3793 3887 4006 
4236 4372 
36178 3741 3848 3879 
4404 
3744 3795 3887 4006 
4236 4372 
3834 
4021 

3542 3828 3959 4065 
4479 

1194 1735 4076 4077 
4064 

3564 

3559 

3563 

366 367 379 1244 
1256 1292 1293 1294 
3471 3472 3473 34798 
3517 3532 


$S*subscript, 


2812 
2844 
2876 
2908 
2940 
23972 
3004 


R=read, W 


4172 


4os9 


3917 


4059 


4037 


4285 


1262 


1285 
3480 


IzsI/G ref, Reread, Wewrite, 


swrite, 


13:33:34 PAGE 795 


2816 
2848 
2880 
2912 
2944 
2976 
3008 


Pz=parameter 


13:33:34 PAGE 8&0 


4213 


4125 


3989 


4125 


4238 


4358 


2012 


2007 
3430 


P=parameter 


1.0 89102 


REFERENCES OF jmm$job_scheduler_ monitor _mode NOS/VE CYBIL/II 
NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$update_service_class_stats 
IDENTIFIER<<-* rr et tee seh ee renee DEFINED~---------+--++-+-5 REFERENCES 
ON LINE 
jmt$dual_state_ priority 2001 19397 
jmt$dual_state_priority_control 1993 2123 
imt$dual_state_priority_entry 1996 1994 
jmt$dual_state_subpriority 2002 1998 
jimt$idie dispatch controls 2012 2009 
jimt$idie dispatching controls 2006 3201 
imtS$idie_ dispatching_entry 2014 2012 
jmtS$idie_ dispatching queue_t ime 2164 2124 
imt$ijl_block_index 49 4s 1166 
4182 4161 
jmt$iji_block_number 48 44a 1154 
jmtS$ijl_dispatching_ control 363 82 
imt$ijl_entry_ status 449 68 1348 
imt$ijl_entry_ status statistics 2025 3203 
‘Imt$ijil_ordinatl 43 24 88 
1213 1214 
1694 1725 
3317 3567 
4048 4113 
jmt$iji_p 1152 1147 
imt$ijl_page_fault count 523 518 519 
jmt$ijl_page_stats 517 513 
imt$ijl_service_class_ stats 511 103 
imt$ijl_statistics 556 102 
jmt$iji_swap_count 532 528 529 
imt$ijl_swap_counts 527 122 514 
jmt$ijil_swap_status 467 71 72 
JmtSinitiated _ job_list_block 1163 1169 
imtSinitiated_job_list_entry 65 25 973 
1585 1693 
3645 3663 
4051 4116 
43g5 4422 
jmtSinitiated_job_list_p 1169 1153 
jmtSinput_fite location 646 641 
jmt$ job_abort_ disposition 655 639 
jmt$ job_category 2034 2030 ; 
jimt$job_category set 2030 2125 2126 
jmt$ job_ciass 607 127 2055 
jmt$job_class_ count 2056 2055 
jmt$job_class_ counts 2055 2045 
jmt$ job_count_range 2051 2042 2043 
jmt$ job_counts 2041 3210 
imt$ job_mode 610 84 
imt$job_priority 615 124 125 
jmt$ job recovery disposition 658 640 
jmt$ job _sched_ event _selections 2105 3214 3214 
jmt$ job _scheduler_event 2103 3212 3212 
imt$ job scheduler events 2083 2103 2105 
.jmt$ job _scheduler_tabie 2108 3218 3218 
“jmt$kji_index 626 70 
** % REFERENCE ABBREVIATIONS Memodify, 


1.0 89102 


REFERENCES OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 
NOS/VE Job Management : job scheduler monitor mode 

[XDCL] jmp$update_ service_ciass_stats 

IDENTIFIER-------+--2--- eee eee DEFINED---------++-+-+e- REFERENCES 

ON LINE 

jmt$S$mainframe_categories 2183 2131 
jmt$mainframe_ entry 2186 2183 
jmt$maximum_active_ jobs 2601 2578 
imt$mtr_oserv_class_ stat_entry 2654 2559 4425 
imt$priority_aging interval 2616 2586 
jimt$priority bias 2350 2135 
imt$queue_ file_ijl_information 638 109 

jImt$rb sched_sub_reqcodes 2400 2414 

jmt$rb_ scheduler requests 2411 3276 3681 
“jmt$rb_service_class_ statistics 2550 4389 
jmt$sc_cp_stat 2682 2661 2662 
imt$sc_pf stat 2683 2666 2667 
jmt$sc_swap_ count 2685 2672 2673 
jmt$sc_swap_stat 2684 2674 2675 
jmt$scheduling data 115 93 
_jmt$scheduling memory_level 2367 2142 2143 
“jmt$scheduling_memory_levels 2141 2127 
jimt$scheduling_ priority 2592 2585 
jmt$service accumulator 663 117 118 
jmt$S$service_class_ attributes 2564 2558 3277 
jmt$service_class_ count 2077 2076 
jmt$service_class_ counts 2076 2046 
imt$service class _cp_time 2660 2655 
imt$service_ciass_ entry 2557 3254 
imt$service_class_ index 710 128 1937 

3229 3253 

3560 3561 
jmt$service class_name 2634 2571 2572 
imt$service class _page_faults 2665 2656 
jimt$service_class_ set 2689 3195 3195 
: 3571 3583 
jmt$service_cilass_ swap_stats 2671 2657 33947 
jmt$service_factor_value 2642 2580 
jmt$service factors 2638 2580 
imt$service_ interval 2383 2114 2116 
imt$ssn_counter 2728 2722 
jmt$ssn_model_number 2734 2716 
imt$ssn_sequence_ number 2633 2720 3256 
jimt$ssn_serial_number 2740 2718 

jimt$swap_ data 131 95 
_imt$swapin_candidate_q_ header 2699 3261 
jmtSswapout reasons 713 123 4286 
jmt$S$swapped_job_entry 728 140 $74 
imt$system_supplied_ name 928 66 2420 
“‘jmt$Ssystem_supplied_name_mask 2710 3265 
jmt$task_time_slice 417 397 398 
‘jmt$t ime slice values 396 381 
/jmt$trick_ijlo variant_record 2746 3321 3322 
jmt$user_dispatching_priority 287 1271 2148 
jmt$working set_size 2759 3227 3227 
jmv$ajl_p 8 4085 4297 

*** REFERENCE ABBREVIATIONS M=modify, 


3566 
4161 
1155 


1351 

116 
1323 
1736 
3731 
4153 


520 


73 


1166 
1724 
3732 
48150 


2189 
3648 


2044 


2593 


4257 


Azattribute, 


3765 


2668 
2677 
2676 


119 
3769 


2076 
3258 
3649 


3195 


2713 


3434 


4364 


Azattribute, 


3615 
4393 
3565 


2025 


946 
1372 
2416 
3771 
4207 


1324 
1737 
3770 
4208 


2130 
3666 


2057 


2594 


Szsubscript, 


3912 


2679 
2678 


2422 


2421 
3260 
3667 


3197 


4365 


Stsubscript, 


1989-08-21 


3615 3730 
4402 4402 
37293 4151 
2025 

9417 1009 
1376 1380 
2700 2749 
3841 3843 
4233 4292 
1335 1347 
3272 3318 
3842 3877 
4234 4231 
2058 20593 
2595 2596 

Isi/oO ref, 


1989-08-21 


2424 2576 
2423 2569 
3275 3341 
3768 3945 
3197 3197 
I=1/O ref, 


R=read, 


3738 


4332 


1048 
1384 
3241 
3873 
4361 


1371 
3367 
3915 
4345 


2078 


2577 


2579 
3368 


3346 


Reread, Wewrite, 


Wewrite, 


13:33:34 


3738 


1199 
1389 
3241 
3940 
4394 


1390 
3568 
3341 
4362 


2079 


13:33:34 


42390 


2689 
3394 


3562 


PAGE 81 


P=sparameter 


PAGE 8&2 


P=parameter 


REFERENCES OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 

NOS/VE Job Management job scheduler monitor mode 

[XDCL] jmp$update_service_class_stats 

LOENTIFIECR Serer eee esse eee DEFINED: ----+r cee eee teen REFERENCES 

ON LINE 

imv$change_dispatching_ list 3198 3579 

jmv$classes_in_maxaj_limit_wait 3195 3346/M 3346 40093 4130 4217 4324 

jmv$classes_ in_resource_wait 3197 4011 4132 4219 

imv$idie_ dispatching controls 3201 3372 3491 3492/M 3493/M 3494/M 3497/M 3498 388a3 

imv$ijl_entry status statistics 3203 1355/M 1356 3744/M 3744 3887/M 3887 4006/M 4006 
4059/M 4089 4125/M 4125 4172/M 4172 4213/M 4213 
4236/M 4236 4372/M 4372 

jimv$ijl_p 1147 1327 3381 3612 3612 3613 3618 3736 3736 
3737 3741 3848 3879 3917 3389 4053 4118 
4159 4159 4160 4162 4237/M 43s9 43s9 4400 
4404 

jmv$ijl_ready_task_list 3208 3329/P 3332/P 

jmv$job_counts 3210 1362/M 1362 1362/M 1362 1366/M 1366 1366/M 1366 
3380 3380 3396 33397 3653/M 3654 3655/M 3655 
3671/M 3672 3673/M 3673 3744/M 3744 3744/M 3744 
3744/M 3744 3744/M 3744 37933/M 3733 3793/M 3793 
3795/M 3795 3785/M 3795 3800/M 3801 3803/M 3804 
3825 3826 3887/M 3887 3887/M 3887 3887/M 3887 
3887/M 3887 3921/M 3922 3924/M 39325 39326/M 3327 
3989 3989 3991 3991 4006/M 4006 4006/M 4006 
4006/M 4006 4006/M 4006 40s3/M 4059 4059/M 4059 
4059/M 4059 4059/M 4059 4125/M 4125 4125/M 4125 
4125/M 4125 4125/M 4125 4172/M 4172 4172/M 4172 
4172/M 4172 4172/™M 4172 4213/M 4213 4213/M 4213 
4213/™M 4213 4213/™M 4213 4236/™M 4236 4236/M 4236 
4236/M 4236 4236/M 4236 4372/M 4372 4372/M 4372 
4372/M 4372 4372/M 4372 

jmv$ job_sched_events_selected 3214 3409 3541 3542 3828 3958/M 3959 4012/M 4065 
4097 4238 4264 4350 

jmv$ job_scheduler_event 3212 3348/M 3349/M 3350/M 3409 3403/M 3541 3541/M 3542 
3542/M 3828 3828/M 3959 3959/M 3387 4008/M 4010/M 
4065 4065/M 4037 4087/M 41239/M 4131/M 4176/M 4177/M 
4216/M 4218/M 4238 4238/M 4262 4263/™M 4277/M 4350 
4350/M 4374/™M 

jimv$ job_scheduler_table 3218 3447 3448 3482 3485 3487 3505 3507 3515 

jmv$max_ajl_ordinal_in_use 1177 4084 

jmv$max_ service_class_in_use 3229 3378 3989 

jmv$max_ think_t ime 3235 3966 3367 

jmv$min_think_time 3231 3968 

jmv$nuli_ijl_ordinal 3241 3373 3847 3847 3989 

jmv$number_free_aji_entries 1184 3990 

jimv$prevent_activation_of_jobs 3243 3387 

jmv$sched_profile_is_ loading 3247 3285 3778 4250/M 

imv$service_class_stats_lock 3251 3976/P 3981/P 4429/P 4477/P 

jimv$service_classes 3253 3282 3288 3288 3380 3398 3585/M 3806 3977 
3989 3991 4002 4306 4312 4431 

jmv$subsystem_priority changes 3258 4349/M 

jimv$swap_jobs_in_long wait 1189 4300 

jmv$swapin_candidate_queue 3260 3379 3381/P 3989 3989/P 

jmv$swapped_idie_disp_count 3263 4371/M 4371 

imv$system_ajl_ordinal 1194 4084 


* ee REFERENCE ABBREVIATIONS 


Memodify, Azattribute, Szsubscript, It1/0 ref, Rtread, W:write, P=parameter 


REFERENCES OF -jmm$ job _scheduler_ monitor _mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 84 

NOS/VE Job Management job scheduler monitor mode 

[XDCL] jmp$update_service_class_ stats 

IDENTIFIER-<--- ere terre tert eee DEFINED~----+3r eee ee eee REFERENCES 

ON LINE 

imv$system_ijl_ordinal 1199 3617 

job_cilass 127 1362 1366 3651 3669 3744 3744 37393 3795 
3887 3887 3926/S 3827/8 4006 4006 40593 4059 
4125 4125 48172 4172 4213 4213 4236 4236 
4372 4372 

job_ciass 1346 1362/M 1362/8 1362/S 

job_cilass 1346 1366/M 1366/S 1366/S 

job_ciass 3648 3651/M 3653/58 3654/Ss 

job_class 3666 3663/M 3671/8 3672/S 

job_class 3726 3744/M 3744/S 3744/S 

job_ciass 3726 3744/M 3744/S 3744/S 

job class 3764 3793/M 3793/8 3793/5 

job_class 3764 3795/M 3795/5 3795/8 

job_ciass 3872 3887/M 3887/58 3887/58 

job_ciass 3872 3887/M 3887/S 3887/8 

job_ciass 33393 &006/M 4006/5 4006/S 

job_class 33393 &4006/M 4006/S 4006/S 

job_class 4047 4059/M 4059/58 4059/S 

job_class 4047 4059/M 4os3g/Ss 4o059/S 

job_class 4112 4125/M 4125/8 4125/s 

job class 4112 4125/M 4125/8 4125/8 

job_cilass 4141 4172/M 4172/8 4172/8 

job_class 4141 4172/M 4172/8 4172/8 

job_class 4206 4213/M 4213/8 4213/8 

jeob_class 4206 4213/M 4213/8 4213/8 

job_class 4232 4236/M 4236/8 4236/8 

job_class 4232 4236/M 4236/S 4236/S 

job_class 4357 4372/M 4372/8 4372/8 

job_class 4357 4372/M 4372/S 4372/S 

job_class_counts 2045 1362/M 1362 1366/M 1366 3653/M 3654 3671/M 3672 
3744/M 3744 3744/M 3744 37933/M 3733 3735/M 3795 
3887/M 3887 3887/M 3887 39326/M 3927 4006/M 4006 
4006/M 4006 4059/M 4os9 40539/M 4059 4125/M 4125 
4125/M 4125 4172/M 4172 4172/M 4172 4213/M 4213 
4213/M 4213 4236/M 4236 4236/M 4236 4372/M 4372 
4372/M 4372 

job_is_good_swap_candidate 26 4328/M 

job_mode 84 3620 

job_mode 529 4473 4474 4475/M 4475 

job_mode 2661 4432/M 4432 

job_mode_swaps 2673 4472/M 4472 

job_scheduler data $3 1362 1362 1366 1366 3282/S 3283 3286 3235 
3296 3330/M 3619 3624/S 3626/S 3651 3652 3669 
3670 3744 3744 3744 3744 3773 3783 3785 
3793 3793 3794/M 3795 3795 3787/M 3808/M 3887 
3887 3887 3887 3889/M 3921/S 3822/8 3924/8 3925/8 
3926/S 3927/8 3974 3988 3998 39399/M 4001/M 4002/M 
4006 4006 4006 4006 4o59 4os9 aoss 4059 
4125 4125 4125 4125 41306 4132 4172 4172 
4172 4172 4213 4213 4213 4213 4217 4219 
4236 4236 &236 4236 4305/M 4307/S 4303/M 4311 

*** REFERENCE ABBREVIATIONS Memodify, Azattribute, S*subscript, I=1/0 ref, Rtread, Wewrite, P=parameter 


REFERENCES OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 85 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$update_service_class_ stats 


IDENTIFIER+<* ee ee eer rete cece ee DEFINED---+--+r--e2+e%25 REFERENCES 
ON LINE 
4312/8 4314/M 4315 4317/M 4318 8324 4325/P 4349/S 
4372 4372 4372 4372 4431/5 4467 4470 4473 
4475 
job_swap_counts 122 4317/M 4318 4467 4470 4473 4475 
jscS$isqi_nul} 950 38239/P 
jisc$isqi_swapped_io_completed 951 953 3845/S 
jscS$isqi_swapped_io_not_init 950 953 
jsp$monitor_advance_swap 1376 3850 
jsp$monitor_swap_in 1380 39393 
jisp$monitor_swap_out 1384 4319 
isp$relink_swap_queue 1389 3929 
jst$changed_asid_entry 996 987 
jst$ijl_swap_queue_id 950 945 1220 1391 
jst$ijl_swap_queue_link 944 77 
jstS$ijl_swap_queue_list 1220 1204 
jst$ijl_swap_queue_list_entry 1212 1220 
ist$io_control_information 958 96 
jst$swap_file_ descriptor 972 $7 
jstSswapped_page_descriptor 981 979 
jst$swapped_page_descriptors 978 975 
jsv$ijl_swap_queue_list 1204 3845 
last_cp_time 2018 3494/M 
last _think_time 90 39365 3967/M 3969/M 4302 
list _nead 3322 3329/P 3330 3331 3333/P 
local_set 3436 3523/M 3532/M 3533/M 3533 3533 3534/M 3534 3534 
: 3535 
lock 1499 1502 1505 1506/M 1506 1508/M 
lock 1701 1709 1711 1713/M 17185/M 1715 
lock 3427 3456 3456 3456/M 3456/M 3456 
jock 3427 3538 3538 3538/M 3538 3538/M 
lock 3556 3575 3575 3575/M 3575/M 3575 
lock 3556 3638 3638 3638/M 3638 3638/M 
Tock 3726 3734 3734 3734/M 3734/M 3734 
lock 3726 3752 3752 3752/M 3752 3752/M 
lock 3764 3775 3775 3775/M 3775/M 3775 
lock 3764 3786 3786 3786/M 3786 3786/M 3832 3832 3832/M 
3832 3832/M 
lock 3872 3886 3886 3886/M 3886/M 3886 
lock 3872 3892 3882 3892/M 3832 3892/M 
lock 3911 3919 3919 3919/M 3919/M 39198 
lock 3911 3933 38333 3933/M 3333 3933/M 
lock 3339 339376 39376 393976/M 3976/M 3976 
lock 3339 3981 3381 3981/M 3981 3981/M 
lock 4047 4058 4058 4058/M 4058/M 4058 
Tock 404a7 4060 4060 4060/M 4060 4060/M 
lock 4112 4124 4124 4124/M 4124/™M 4124 
lock 4112 4127 4127 4127/M 4127 4127/M 
Tock 4141 4171 4171 4171/™ 4171/M 4171 
Tock 4141 4174 4174 4174/M 4174 4174/M 
lock 4421 4429 4429 4423/M 4429/M 4429 


eee REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, S=subscript, I:21/0 ref, Rtread, Wewrite, Pzparameter 


REFERENCES OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 891602 : 1989-08-21 13:33:34 PAGE 8&6 


‘NOS/VE Job Management : job scheduler monitor mode 
[XBDCL] jmp$update_service_class_stats 


IDENTIFIER + +2 ere ere re ee eee DEFINED-----ce-r2 eee eee REFERENCES 
ON LINE 
lock 4421 4477 4477 4477/M 4a7Ti 4&77/M 
lecked 1314 1711 3456 3575 3734 3775 3886 3919 3976 
4058 4124 4171 4429 
long wait 528 4317/M 4318 4467 4468 4469/M 4470 
long wait swaps 2672 8466/M 4466 
max_block_in_use 1154 3612 3736 4159 4399 
maximum 2153 3448 3505 3508 
maximum 2594 4003 
'maximum_active jobs 2578 3380 3398 3827 3989 3991 
maximum_t ime 1275 3507/M 3512/M 
maximums defined 1255 3479 /M 3509/M 3509 
maximums exceeded 1295 3471/M 
memory reserve request 87 3956 3957/M 
minimum 2152 3447 3485 3488 
minimum_t ime 1274 3487/M 3503/M 
' minimums _to_satisfy 1254 : 3473/M 3489/M 3489 3520 
minimums to satisfy 1293 3470/M 3520/M 3533/M 3533 3534 
mmc$pq_avail 745 791 
mmc$pq_free 744 803 
mmc$pq_job_fixed 785 792 804 
mmc$pq_job_working set 787 804 805 
mmc$pq_ shared _first_site 795 799 
mmc$pq_ shared num_sites 796 799 
mmc$pq_shared_ other 754 794 
mmc$pq_shared_ site 01 756 795 
mmc$pq_shared_site_ 25 780 800 
mmc$pq_shared_task_ service 749 793 
mmc$pq_swapped_io_error 783 803 
mmc$pq_wired 747 790 
mmp$nudge_ per iodic_call 1396 1401 4100 
mmt$S$active_ segment_table entry 1006 $84 1022 1055 
mmt$ast_index 1038 139 $39 
mmt$global_page_ queue_index 803 1140 
mmt$giobal_page_ queue_list_ent 1130 1140 
mmt$ job _page_queue_ index 804 730 1141 
mmt$ job _page queue list 1141 94 
mmt$1ink 1029 1007 1045 1046 1127 
mmt$ locked page 1067 1051 
mmt$memory reserve request 1108 87 
mmt$page_age 1074 1054 1078 1078 
mmt$page_ frame_ index 967 $59 961 $62 $63 1031 1031 1110 1111 
3239 
mmt$page_ frame_queue_id 805 960 1015 1049 
mmt$page_ frame_table_entry 1044 $82 1060 
mmt$page_ queue_list_entry 1126 1131 1141 
‘mmv$reduce_jws for thrashing 1229 4099/M 
mmv$t ime_to_cail_mem_mgr 1407 1398/M 4100/M 
monitor mode 2662 4438/™M 4438 
mtp$error stop 1416 3896 4121 
mt p$set_ status _abnormal 1418 1425 3713 3898 


xe x REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, S=subscript, Is1/O ref, Reread, W-ewrite, P*parameter 


REFERENCES OF 


NOS/VE Job Management 


jmm$ job_scheduler_ monitor_mode 


[XDCL] jmp$update_ service _ciass_ stats 


IDENTIFIER-----+--°- eee he 5 << DEFINER 

ON LINE 
new _class 3275 
new entry status 1348 
new _entry status 3726 
new entry status 3872 
new _entry status 3939 
new entry status 4047 
new_entry_ status 4112 
new_entry_ status 4141 
new_entry status 4206 
new_entry status 4232 
new _entry status 4357 
new pages assigned 583 
new _ service accumulator 2422 
new service class 2421 
next _ijl_ordinal 3843 
next service class index 2579 
normal 1647 
normalized interval 3437 
old class 3768 
old _entry status 1351 
old_entry status 3726 
old _entry_ status 3872 
old_entry_ status 393393 
old_entry status 4047 
old _entry status 4112 
old _entry_ status 4141 
old _entry_status 4206 
old _ entry status 4232 
old_entry status 4357 
old_list_head 3323 
old service accumulator 2424 
old service _class 2423 
osc$free_ running clock_maximum 4393 
osc$invalid ring 860 
osc$max_ name_size 1759 
osc$max_number _of_ processors 1524 
osc$max_page_ frames 810 
osc$max_page_size 2276 
osc$max_page_table_ entries 811 
osc$max_ ring 859 
osc$max_ segment length 883 
osc$max_ status _ condition_code 1613 
osc$max_status_condition_number 1428 
osc$max_string_size 1629 
osc$max_ tasks 1100 
osc$maximum_offset 882 
osc$maximum_processors 1528 
osc$maximum_segment 881 
osc$min_page_size 2275 


**t 


REFERENCES OF 


NOS/VE Job Management 
[XDCL] 


IDENTIFIER------ ee ee ee ee ee eee 


osc$min_ring 
osc$null_name 
osc$pr_base_constant 


osc$task_ time_ slice maximum 
osk$base 


osk$entry 

osk$exit 

osk$system_class 
osp$fetch_locked variable 
osp$set_locked_ variable 
ost$asid 

ost$cp_time 
ost$cp_time_value 
ost$free_ running clock 


ost$global_task_id 
ost$key_ lock _value 
ost$name 

ost$page_id 

ost$page_size 
ost$page_table_entry 
ost$page_table_ index 
ost$paging statistics 
ost$processor_model_number 
ost$processor_serial_number 
ost$ring 

ost$segment 
ost$segment_offset 
ost$signature_ lock 
ost$status condition 
ost$status_ condit ion_code 
ost$string 

ost$string_size 
ost$system_virtual_address 
ost$task_index 
ost$task_time_slice 
osv$cpus_logically_on 


osv$t ime_to_check_asyn 


page_fauilts 
page _ faults 
page_in_count 


eX 


REFERENCE ABBREVIATIONS 


jmm$ job_scheduler_monitor_mode 


14093 


513 
2656 
581 


REFERENCE ABBREVIATIONS 


job scheduler monitor mode 


se ceee ~----++---REFERENCES 


job scheduler monitor mode 
jmp$update_ service class _stats 


NOS/VE CYBIL/II 


1.0 88102 


3287/M 3288/S 
1355/S 1356/S 
3744/58 3744/S 
3887/58 3887/58 
4006/5 4006/5 
4059/5 4059/5 
4125/58 4125/8 
4172/8 4172/8 
4213/8 4213/58 
4236/S 4236/S 
4372/5 4372/58 
4459 4462 
3294/M 
3293/M 3794 
3849/M 3851 
3286 3287 
1423/M 3683/M 
3483/M 3487 
3779/M 3782 
1353/M 1355/S 
3744/M 3744/S 
3887/M 3887/S 
4006/M 4006/S 
4059/M 4os9/S 
4125/M 4125/S 
4172/M 4172/8 
4213/M 4213/58 
4236/M 4236/S 
4372/M 4372/8 
3331/M 3332/P 
3296/M 3783/M 
3295/M 3781 
436 2179 
900 

1763 1766 
1518 

134 135 
2272 

814 

900 901 
906 

1609 1625 
1419 

1632 1635 
1097 

883 903 
1524 

902 
2272 

Msmodify, 


NOS/VE CYBIL/II 


REFERENCES 


901 
1754 
1502 
3775 
3981 
4477 

431 
3021 
3053 
3084 


4477 
1399/M 


4449 
4447/™M 
4448 


Memodify, 


1.0 89102 


$983 
1052 


1086 
2112 
1707 
3786 
4058 


4100/M 
4450/M 


4447 
4450 


3288/S 
1358 
3744 
3887 
4006 
4059 
4125 
4172 
4213 
4236 
4372 


3797 


3713/M 
3507 


3784 

1356/S 
3744/S 
3887/8 
4006/5 
4053/5 
4125/S 
4172/Ss 
4213/58 
4236/S 
4372/8 


3784 
3782/M 


729 


1640 


903 


Azattribute, 


3456 
3832 
4060 


30293 
3061 


3151 


4454 
4452/M 


Artattribute, 


3233 
1361 
3744 
3887 
4006 
4059 
4125 
4172 
4213 
4236 
4372 


3803/58 


3885/M 


3800/S 
1360 
3744 
3887 
4006 
4059 
4125 
4172 
4213 
4236 
4372 


3784 


731 


904 


S=subscript, 


3538 
3886 
4124 


3033 
3065 


3152 


397 


$1 
1012 
3223 


4455/M 
4452 


S:subscript, 


I=I/0O ref, 


Reread, W:write, 


1989-08-21 13:33:34 PAGE 87 
1365 
3744 
3887 
4006 
4059 
4125 
4172 
4213 
4236 
4372 
3804/S 3806/5 3825/S 3826/S 
3898/M 4397/M 
3801/S 
1364 
3744 
3887 
4006 
4059 
4125 
4172 
4213 
4236 
4372 
967 1008 1128 1134 
11/0 ref, Rtread,. Wewrite, Pzparameter 
1989-08-21 13:33:34 PAGE 88 
3575 3638 3734 3752 
3892 3919 3933 3976 
4127 4171 4174 4429 
3037 3041 3045 3049 
3069 3073 3078 3081 
3153 3154 3155 
$98 1013 
92 126 136 137 
1267 1274 1275 2017 
3249 32687 
3575 3638 3734 3752 
3892 3919 3333 3976 
4127 4171 4174 4429 
4460 4461/M 
4458/M 4458 


P=parameter 


REFERENCES OF jmm$ job_scheduler_ monitor mode NOS/VE CYBIL/II 1.0 89102 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update service _class_stats 
IDENTIFIER--- ce ee er rete eee ee DEFINED=-cer errr eet ee eee REFERENCES 
ON LINE 
,pages reclaimed _from_queue 582 4453 4456 
paging statistics 558 4448 a4aso0 
pmc$mainframe_id_size 2289 2286 
pmc$processor_model_number_size 2297 2289 2294 
- pmc$processor serial _num_size 2347 2290 2344 
pmt$binary mainframe_id 2195 2188 
pmtS$cpu_model_number 2262 2251 2258 
pmtS$cpu_seria)_number 2265 2252 2257 
~ pmt$mainframe_id 2286 2187 
priority 124 4002/M 
- Pb 3276 3290/M 3291/M 
rb 3765 3773/P 3781 
3803/58 3804/S 
rb 3912 3917/P 3929/P 
ready task count 561 3888 
ready _task_1link 116 3330/M 
ready tasks 1294 3532/M 3533 
reclaimed 519 4454 4455/M 
reclaimed 2667 4452/M 4452 
remove_class_from_maxaj_limit 3340 3353 4325 
reqcode 2412 3290/M 
request_block 3681 3683/M 3687 
request _ block 4389 4397/M 
requested page_count 1110 3956 3357/M 
result 1437 1440 1441 
result 1483 1487 1488 
result 3316 3329 3329 
result 3316 3333 3333 
scan_ijl 3611 3611 3636 
scheduler initiated jobs 2078 3380 3397 
3923 3989 
scheduling dispatching _ priority 81 3382 38190 
scheduling priority 2585 4003 
search_ijl 4158 4158 4191 
service _ accumulator 117 3283 3296 
service accumulator since swap 118 3999/M 4311 
service class 128 1362 1366 
3652 3670 
3797/M 3887 
4006 4006 
4172 4172 
4307/S 4312/s 
service class 1346 1362/M 1362/S 
service class 1346 1366/M 1366/8 
,service_ class 3341 3347 
service class 3363 3380/S 3380/S 
service class 3368 3378 3379/5 
service class 3394 3396/S 3397/S 
“service class 3649 3652/M 3655/Ss 
**% REFERENCE ABBREVIATIONS Memodify, Azattr 
REFERENCES OF jmm$job_scheduler_monitor mode NOS/VE CYBIL/II 1.0 89102 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update_service_class_ stats 
~ IDENTIFIER---- eon rte r rrr eres DEFINED s:< 9:22 26 se ee eisceie < REFERENCES 
ON LINE 
service_class 3667 3670/M 3673/S 
service class 3726 3744/M 3744/Ss 
service class 3726 3744/M 3744/S 
service class 3764 3793/M 3793/S 
service_class 3764 3735/M 3795/S 
service class 3872 3887/M 3887/S 
service class 3872 3887/M 3887/S 
service class 3939 3989 3989/5 
service class 3939 3989/S 3989/S 
service class 3939 4006/M 4006/S 
service_class 3339 4006/M 4006/S 
service class 3945 3374/M 3977/S 
service_class 4047 4059/M 4059/S 
service_class 4047 4059/M 4059/S 
service class 4112 4125/M 4125/Ss 
service class 4112 4125/M 4125/Ss 
service_class 4141 4172/M 4172/8 
service class 4141 4172/M 4172/8 
service class 4206 4213/M 4213/8 
service_class 4206 4213/M 4213/S 
service class 4232 4236/M 4236/S 
service_cilass 4232 4236/M 4236/S 
service class 4357 4372/M 4372/S 
service class 4357 4372/M 4372/S 
service class counts 2046 1362/M 1362 
3655/M 3656 
3793/M 37393 
3825 3826 
3924/M 3925 
4006/M 4006 
4125/M 4125 
4213/M 4213 
4372/M 4372 
service _class_p 3277 3282/M 3283 
service _class_p 3769 3806/M 3811 
service class _statistics 103 4434 4435/M 
4460 4461/M 
service_limit 380 3592 3595 
service remaining 368 3816/M 
service _used 3569 3621/M 3625/M 
service used 4233 4303/P 
set defined 378 3591 
sft$counter 590 559 560 
statistics 102 3621 3622 
; 4443 4448 
Statistics 2558 3977 4431 
statistics p 4425 4431/M 4432/™M 
J 4452 4458/M 
status 1420 1423/M 1424/M 
status 2413 3683/M 3689/P 
Status 2552 4337/M 


REx 


REFERENCE ABBREVIATIONS 


Memodify, 


4453 


3282/M 
3782/M 
3806/S 


3534/M 


36839/P 


1442 
1489 
3329 
3333 


3800/M 
3991 
3811/M 


3783 
4315 
3282/8 
3744 
3887 
4059 
4213 
4324 
1362/S 
1366/S 


3380/S 
3380/P 
3398/S 
3656/S 


ibute, 


3674/S 
3744/Ss 
3744/S 
3793/5 
3795/S 
3887/8 
3887/8 
3989/P 
3989/8 
4006/S 
4006/S 
3991/P 
4059/S 
4059/S 
4125/8 
4128/S 
4172/8 
4172/58 
4213/S 
4213/S 
4236/S 
4236/S 
4372/S 
4372/S 
1366/M 
3673/M 
37935/M 
3887/M 
3989 

4059/M 
4172/M 
4236/M 


3284 
3814 
4440 
4468 
3817 


3625 


3813 
4450 


4432 
4458 


3713/P 


Azattribute, 


4456 


3293/M 
3783/™M 
3825/S 


3534 


3689/P 


3801 


3389/P 


3785 


3286 
3744 
3921/S 
4oss 
4213 
4325/P 


3381/S 


S-ssubpscript, 


39839/S 
3981/S 


4002/5 


1366 
3674 
3795 
3887 
3389 
4059 
4172 
4236 


3286 
3816 
4442/M 
4469/M 


3629/M 


3820 
4453 


4438/M 
4466/M 


Sssubscript, 


1$89-08-21 13:33:34 

4459 4462 
32934/M 3295/M 32936/M 3298/P 
3784 3784 3794 3797 
3826/S 
3695/P 3701/P 3713/P 
3803/M 3804 3825 3921/M 
3989S 4348 
3808/M 
3295 3619 3624/58 3626/S 
3779 3793 3794/M 37935 
3322/8 39324/S 39325/S 3974 
4125 4125 4130 4132 
4217 4213 4236 A236 
4343/S 4372 4372 4431/58 

IsI/O ref, Reread, Wewrite, 


3991/8 


4008s 


3380 

3744/™M 
3800/M 
3887/M 
3991 

4053/M 
4172/™ 
4236/M 


3287 
3827 
4449 
4a7a 


3631/P 


3888 
4456 


4438 
4466 


rz1/O ref, 


1889-08-21 


3891/8 


4011 


4450/M 
4475/M 


4433 
44593 


4447/™M 
4472/M 


13:33:34 
3396 3397 
3744/M 3744 
3803/M 3804 
3921/M 3822 
A006/M 4006 
4125/M 4125 
4213/M 4213 
4372/M 4372 
4454 4455/M 
4436 4439 
4462 

4447 4452/M 
4472 


Rzread, Wewrite, 


PAGE 89 


Pz=parameter 


PAGE 90 


P=parameter 


REFERENCES OF jimm$ job_scheduler_monitor_ mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 91 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update_service_class_stats 
IDENT EP LER S20 #2 S66 soe ee o 9.6 Sse ce DEFINED---- er ee rere renee REFERENCES 
ON LINE 
status 3404 340S3/P 
status 3427 3541/P 3542/P 
status 3680 3713/M 3713/M 
status 3764 3828/P 
status 3872 3898/M 3898/M 
status 3874 3885/M 3898/P 
status 3939 3959/P 
status 3946 4013/P 
status 4047 4065/P 
status 4073 4087/P 
status 4117 4133/P 
status 4154 4178/P 
status 4211 4220/P 
status 4232 4238/P 
status 4260 4265/P 
status 4275 4278/P 
status 4344 4350/P 
sub _reqcode 2414 3231/M 3687 
succeeded 1451 1485/M 1491/M 
succeeded 3316 3333/M 3333/M 
succeeded 3324 3333/P 3334 
swap_data 35 33972/M 3979 4167 
swap_queue_ 11nk 77 3849 
Swap_stats 2657 3977 4466/M 4466 4472/™ 4472 
swap_stats_op 3947 3977/M 3978/M 3978 3980/M 3980 
Swap_status 71 33390 4180 4181 
swap_to ready count 2679 3980/M 3980 
Swap_to ready_time 2678 3878/M 3978 
swapin_candidate_queue 2700 3379 3381/P 3989 3989/P 
swapin_q priority timestamp 126 3883/M 
swapin_queue_empty 3363 3389 3989 
swapin_queue_empty 3364 3370/M 3373/M 3383/M 3989 /M 398389/M 3389/M 
sSwapout reason 123 3988 4305/M 
Swapout reason 4286 4305 4306 4310 
swapout timestamp 138 3379 
swapouts 514 4468 44639/M 4&874 4475/M 
sSwapped_ jobs 20593 1362/M 1362 1366/M 1366 3653/M 3654 3671/M 3672 
3744/™M 3744 3744/M 3744 3793/M 3793 3795/M 3795 
3887/M 3887 3887/M 3887 3926/M 3827 4006/M 4006 
4006/M 4006 4053/M 40s9 4059/M 4059 4125/M 4125 
4125/M 4125 4172/M 4172 4172/™M 4172 4213/M 4213 
4213/M 4213 4236/M 4236 4236/M 4236 4372/M 4372 
4372/M 4372 
swapped _ jobs 2079 1362/M 1362 1366/M 1366 3380 33397 3655/M 3656 
3673/M 3674 3744/M 3744 3744/M 3744 3793/M 3793 
3795/M 37935 3826 3887/M 3887 3887/M 3887 3924/M 
3325 3989 3991 4006/M 4006 4006/M 4006 40o59/M 
4083 4059/M 4os9 4125/M 4125 4125/M 4125 4172/M 
4172 4172/M 4172 4213/M 4213 4213/M 4213 4236/M 
4236 4236/M 4236 4372/M 4372 4372/M 4372 
swapping _1o_error 133 4167 
**X REFERENCE ABBREVIATIONS Mzmodify, Azattribute, S:subscript, I:s1/0 ref, R=read, Wewrite, P2parameter 
@ 
REFERENCES OF jmm$ job_scheduler_monitor_mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 92 
NOS/VE Job Management job scheduler monitor mode 
[XDCL] jmp$update_service_cilass_stats 
IDENTIFIER- + e+e ee ee eter ree nee DEFINED----rr rrr rere REFERENCES 
ON LINE 
syc$rc_job_ scheduler request 2528 3290 
system_supplied name 66 3292 
system _supplied name 2420 32292/M 3773/P 
Ssyt$monitor request code 2445 2412 2551 
syt$monitor_ status 1646 1420 1591 2413 2552 3344 3407 3874 3946 
4117 4154 4211 4260 4275 
terminated job 1165 4237/M 
think _t ime 3946 3965/M 3966 3968 393693 
time left _in_interval 1267 3481/M 3483 3513 
time spent _in_job_mode 545 3495 3621 3819 4433 4434 4435/M 4436 
time spent_in_mtr_mode 546 3496 3622 3820 4439 4440 4442/M 4443 
timestamp 137 3872/M 
timestamp 2017 3493/M 
tmc$fnx_ job 1731 3821/P 
tmc$maximum_system_task_id 1654 1657 
tmce$stid_ job scheduler 1666 3351/P 3409/P 3541/P 3542/P 3828/P 3959/P 4013/P 4065/P s 
4097/P 4133/P 4178/P 4220/P 4238/P 4265/P 4278/P 4350/P 
tmce$stid_null_task 1660 1657 
tmpScalculate dct priority int 1496 3527 
tmp$clear_ lock 1499 1512 3538 3638 3752 3786 3832 3892 38333 
3981 4060 4127 4174 4477 
tmp$free_ unrecovered tasks 1584 3931 
tmp$monitor_ ready system task 1590 3351 3408 3541 3842 3828 3959 4013 4065 
4037 4133 4178 4220 4238 4265 4278 4350 
tmp$reset dispatching contro} 1632 3631 
tmpSset_ lock 1701 1719 3456 3575 3734 3775 3886 3919 33976 
4058 4124 4171 4429 
tmp$update_ job _task_environment 1724 3821 
tmt$cpu_execution_statistics 1238 1233 
tmt$dispatching control_sets 1291 1281 3436 
tmt$dispatching controls 1252 1247 
tmt$dispatching prio_contro ls 1266 1257 1302 
tmt$dispatching priority time 1271 1268 
tmt$fnx search_type 1731 1726 1734 
tmt$ptil_ lock 1311 1307 1499 1701 3251 3251 
tmt$system_task_id 1657 1590 
tmtS$task_queue_ Tink 1084 1083 
tmt$time_ limits 1273 1271 
tmv$cpu_execution_statistics 1233 3495 3496 
tmv$dispatch_ priority integer 1244 3535 
tmv$dispatching control_sets 1281 3470/M 3471/M 3472/M 3520/M 3529 
tmv$dispatching control _time 1302 3521/M 
tmv$dispatching controls 1247 3473/M 3476/M 3478/M 3473/M 34380/M 3481/M 3483 3486/M 
, 34839/M 3489 3503/M 3506/M 3509/M 3509 3512/M 3513 
3516/M 3516 3520 3521 
tmv$pt 1_ lock 1307 3456/P 3538/P 3575/P 3638/P 3734/P 3752/P 3775/P 3786/P 
3832/P 3886/P 3892/P 39198/P 39333/P 4058/P 4060/P 4124/P 
4127/P &4171/P 4174/P 
too _many_active jobs for class 3393 3380 3400 3983 3391 
too_many_active_jobs_for_ class 3394 3380/M 3396/M 3983/M 3991/M 


*ex 


REFERENCE ABBREVIATIONS 


Memodify, Azattribute, S*subscript, I21/0 ref, R=read, Wewrite, Psparameter 


REFERENCES OF 


jmm$ job_scheduler_monitor_ mode NOS/VE CYBIL/II 1.0 89102 1989-08-21 


NOS/VE Job Management : job scheduler monitor mode 
[XDCL] jmp$update_ service _ class stats 


IDENTIFIER * see se tee eee ee ee eee DEFINED-<----+c 722 -+ee¢e% 828 REFERENCES 

ON LINE 
u_second 3430 3482 
unblocked priorities 2007 3497/M 34398 
value 1432 1440 1483/M 
value 3316 3329 3329/M 
variable 1431 1440 
variable 1447 1487 
variable 3316 3329 
variable 3316 3333 


* > REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, S:subscript, I:I1/0 ref, Reread, 
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MODULE jsm$monitor, mode_job_swapper ; 


[on ote i aoe Boe Bh ote Be oe oe oe 2 oe oe ote oe 


The purpose of this module is to do the work necessary to Swap jobs in and 
out once it has been informed to do so. Some work may have to be done in 
}9b mode having to do with allocating the swap file. 


Tne actual swapping of the job is a serial function in a multi cpu system 
although the requests can be received asynchronously to request a Swap or 
advance a Swap. These asynchronous requests are serialized by noting the 
event, the actual work is performed when the job swapper (jsp$swap_polling) 
is called from mtm$monitor_interrupt_handler asynchronous loop. Procedures 
that can be entered asynchronously are marked. 


Define compile time variable to control compilation of debug code. 


?VAR 
debug: boolean := FALSE?; 
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oO 5264 
o $265 
° S266 { External procedures referenced by this module. 
° 
Oo 5267 
o 5268 
o 5269 PROCEDURE [XREF] dfp$fetch_page_status 
o 5270 ( fde_p: gftSlocked file _desc_entry_p; 
Oo 5271 offset: ost$segment_offset ; 
Oo 5272 VAR allocate status: gft$page_ status); 
oO $273 
5276 PROCEDURE [XREF] dfp$set_task_segment_state 
5277 ( search: tmt$fnx_ search_type; 
5278 ijle_p: AjmtS$initiated_job_list_entry; 
5279 ijle: jmt$ijl_ordinal; 
5280 inhibit_access_ work: dft$mainframe_set; 
5281 terminate _ access work: dft$mainframe_set ) ; 
5282 
o 5298 VAR 
Oo 5299 dfv$file server_debug enabled: [XREF] boolean; 
o §5300 
o 5301 
o §302 PROCEDURE [XREF] dmp$allocate_file_ space 
o 5303 ( p_fde: gft$locked file _desc_entry_p; 
Oo 5304 initial _byte address: amt$file_byte_ address; 
Oo §305 bytes _ to_allocate: amt$file byte address; 
Oo S306 file_space_limit: sft$file_space_limit_kind; 
Oo §307 VAR allocation_units_ obtained: amt$file_ byte address; 
Oo 530608 VAR overfiow indicator: boolean; 
o $5309 VAR file_allocation_status: dmt$file_allocation_status) ; 
© §3106 
5313 
5314 PROCEDURE [XREF] dmp$set_fau_state 
§315 ( fde_p: gftS$locked file _ desc _entry_p; 
5316 byte address: amt$file byte_address; 
5317 VAR status: sSyt$monitor_status) ; 
5318 
Oo §321 
oO 5322 PROCEDURE [XREF] dmp$recover_job_dm_tables 
oO $323 ijle_p: Ajmt$initiated_job_list_entry) ; 
Oo 5324 
5327 
5328 PROCEDURE [XREF] dpp$display_error 
5329 ( line: string ( * <= dpc$top_line_message_size)); 
§330 
Oo 5342 
© 5343 PROCEDURE [INLINE] gfp$mtr_get_fde_p (sfid: gft$system_file_identifier; 
o 5344 ijle_p: AjmtGinitiated job_list_entry; 
oO 5345 VAR fde_p: gft$file_desc_entry p); 
© S346 
oO $347 
o 5390 
o 5391 PROCEDURE [INLINE] gfp$mtr_get_locked_fde_p (sfid: gft$system_file_identifier; 
o 5392 ijle_p: Ajmt$initiated job_list_entry; 
Oo §393 VAR fde_p: gftS$locked_file desc_entry_p}; 
o 5394 
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oo0oodg0gococooocoacoo00o0o000d0 


e00o0o00000 


PROCEDURE [XREF] i#build_ adaptable array _ptr (ring: oO 
segment: oO .. 4095; 
offset: -80000000(16) .. 7FFFFFF( 16); 
array size: 1 .. 80000000(16) ; 
lower bound: -80000000(16) .. 7TFFFFFFF(16); 
element size: 1 .. 80000000(16); 
array _p: AAcel1); 


PROCEDURE [XREF] i#real_memory_address (p: Acel1; 
VAR rma: integer); 


PROCEDURE [XREF] iop$pager_io [ 
fde_p: gft$locked file desc entry _p; 
chapter_offset: ost$segment_offset; 
buffer descriptor: mmt$buffer_ descriptor; 
length: ost$byte_count; 
io function: iot$io_ function; 
io_identifier: mmt$io_identifier ; 
VAR status: syt$monitor_status) ; 


PROCEDURE [XREF] jmp$act ivate_job_mode_swapper ; 
PROCEDURE [XREF] jmp$assign_ajl_entry (asid: ost$asid, 


ijl_o: jmt$iji_ordinal; 
caller: 0 .. 010(16); 
must _assign: boolean; 

VAR ajl_o: jmt$ajl_ordinal; 

VAR status: syt$monitor status) ; 


PROCEDURE [XREF] jmp$assign_aji_with_lock 
( 


[oe 0 ote Be oe] 


asid: ost$asid; 
ijl_o: jmt$ijl_ordinal; 
caller: ©o .. 9010(16); 
must assign: boolean; 
VAR aji_o: jmt$ajl_ordinatl; 
VAR status: syt$monitor_status) ; 


PURPOSE: 


This is the monitor mode procedure to change the entry status of 
of procedure must set the PTL lock if the entry status change 
transition because the swapped job counts will be changed. 


PROCEDURE [INLINE] jmp$change_ijl_entry_status 
( ijle_p: Ajmt$initiated_job_list_entry; 
new_entry_ status: jmt$ijl_entry_ status) ; 


VAR 
eld_entry status: jmt$ijl_entry status; 


old_entry status := ijle_ pA.entry status; 


imv$ijl_entry_ status_statistics [old_entry_status] [new_entry status] 


15; 


1988-08-21 


1889-08-21 


The caller 
a SWAPPED/NOT SWAPPED 
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5520 imv$ijl_entry status_statistics [old_entry status] [new_entry status] + 1; 
5521 
$522 ijle_pA.entry status := new_entry status; 
5523 
5524 IF (old_entry_ status <= jmc$ies_swapin_in_progress) AND 
5525 (new_entry status > jmc$ies_swapin_in_progress) THEN 
5526 jmp$increment swapped _job_count (ijle_p); 
§527 
5528 ELSEIF (old_entry_ status > jmc$ies_Sswapin_in_progress) AND 
5529 (new_entry_ status <= jmc$ies swapin_in_progress) THEN 
5530 imp$decrement_ swapped _job_count (ijle_p); 
5531 IFEND; 
§532 
5533 PROCEND jmp$change_ijl_entry_status; 
5534 
5535 PROCEDURE [INLINE] jmp$check_scheduler_ memory wait; 
5536 
o 5569 PROCEDURE [XREF] jmp$decrement_swapped_ job_count(ijle_p: Ajmt$initiated_job_list_entry); 
° 5570 
5573 PROCEDURE [XREF] jimp$free_ ajl_entry 
5574 ( ijle_p: AjmtS$initiated_job_list_entry; 
5575 caller: © .. 10(16)); 
5576 
° 5579 
© 5580 PROCEDURE [XREF] jmp$free_ajl_with_1lock 
o 58581 ( ijle_p: Ajmt$initiated _job_list_entry; 
oO 5582 Caller: © .. 10(16)); 
° 5583 
S586 PROCEDURE [inline} jmp$get_ijle_p (ijl_ordinal: jmt$iji_ordinal; 
$587 VAR ijle_p: Ajmt$initiated_job_list_entry) ; 
5588 
° S596 
o $597 PROCEDURE [XREF] jmp$increment_swapped_job_count (ijle_p: Ajmt$initiated_job_list_entry) ; 
© 5598 
5601 PROCEDURE [XREF] jmp$recognize_job_dead (ijl_ordinal: jmt$ijl_ordinal); 
5602 
° S605 
o 5606 PROCEDURE [XREF]) jmp$reset_job_to_swapped_out [(ijl_o: jmt$ijl_ordinal); 
° 5607 
5610 
5611 PROCEDURE [XREF ] imp$set_entry_ status to rt 
5612 ( ijl_ordinal: jmt$ijl_ordinal; 
5613 ijle_p: Ajmt$initiated job_ list entry); 
5614 
° 5617 
Oo $618 PROCEDURE [XREF] jmp$set_scheduler_event (event: jmt$job_scheduler_events) ; 
° 5619 
$622 
5623 PROCEDURE [XREF] jsp$initiate swapout_io (pages needed: mmt$page_frame_index) ; 
5624 
ce) 5627 
o 5628 PROCEDURE [XREF] mmp$asid (asti: mmt$ast_index; 
© 5629 VAR asid: ost$asid); 
©} 5630 
$633 
F e 
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5659 


0000 


eog0eooocoo0goo0o0o080 
a 
o 
oa 
w 


eoo0o0 
ai 
~] 
N 


oo0000006 
a 
~j 
Nv 
wl 


mars 


PROCEDURE [XREF] mmp$claim_pages_for_swapin (swapped _job_entry: jmt$swapped_job_entry; 
aste_p: AmmtS$active_segment_table_ entry; 
ijl_ordinal: jmt$ijl_ordinal; 
VAR job_page queue _ list: mmt$ job_page_ queue list); 


PROCEDURE [XREF] mmp$dump_shared_queue 
( total_pages_ needed: mmt$page_frame_index) ; 


PROCEDURE [XREF] mmp$free_memory_in_job_queues (VAR job_page queue _ list: mmt$job_page_queve_ list; 
increment now: boolean; 
decrement _soon: boolean; 
job_termination: boolean) ; 


PROCEDURE [XREF] mmp$replenish_free_queues (asid: ost$asid); 


This procedure verifies that the asti stored in the file descriptor entry is still being used by 
the same job for the same file. If the asti is ok, it is returned; otherwise O is returned. 


PROCEDURE [INLINE] mmp$get_verify_ast i_in_fde 
{ fde_p: gft$locked_file_desc_entry_p; 
sfid: gft$system_file_identifier ; 
ijleo: jmt$ijl_ordinal; 
VAR asti: mmt$ast_index); 


PROCEDURE [INLINE] mmp$sva_purge_all_page_map (sva: ost$system_virtual_address) ; 


IF mmv$multiple_ page_maps THEN 
mmp$purge_all_map_proc; 
ELSE 
#purge_ buffer (osc$sva_purge_al1l_page_ map, sva); 
IFEND; 


PROCEND; 


PROCEDURE [XREF] mmp$remove_swapped_shared_pages 
( ijle_p: Ajmt$initiated_job_list_entry) ; 


PROCEDURE [XREF] mmpS$age_job_working_ set (ijle_p: Ajmt$initiated_job_list_entry; 
jcb_p: Ajmt$job_control_biock) ; 


PROCEDURE [XREF] mmp$remove_stale_ pages (VAR pqie: mmt$page_ queue _list_entry; 

age _ limit: integer; 
jcb_p: Ajmt$job_control_biock; 
ijle_p: Ajmt$initiated _job_list_entry; 
queue_id: mmt$page_frame_queue_id; 
minimum working set: 0 .. OF FFF(16); 

VAR modified _ pages removed: integer ; 

VAR total pages removed: integer); 
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o 5731 
$734 
$735 PROCEDURE [XREF] mmp$assign_asid (VAR asid: ost$asid; 
5736 VAR asti: mmt$ast_index; 
§737 VAR aste_p: Ammt$active_segment_table_entry); 
5738 
oO 8741 PROCEDURE [XREF] mmp$assign_specific_asid (aste_p: Ammt$active_segment_table_ entry) ; 
Oo 5742 
5745 PROCEDURE [XREF] mmp$assign_page_to_monitor (p: Acell; 
5746 page count: integer; 
5747 preset: boolean; 
5748 VAR status: syt$monitor_status) ; 
5749 
© 5752 PROCEDURE [XREF] mmpSasti (asid: ost$asid; 
© 6§753 VAR asti: mmt$ast_ index) ; 
3 5754 
5757 
5758 PROCEDURE [INLINE] mmp$conditional_purge_all_map (time: integer); 
5759 
5760 VAR 
5761 null sva: O .. OF FFFFFFFFFFF( IE) ; 
5762 
5763 IF mmv$multiple_page maps THEN 
5764 IF time > mmv$time_map_last_purged THEN 
5765 mmp$purge_all_map_proc; 
5766 IFEND; 
5767 ELSE 
5768 #purge_buffer (osc$purge_all_page_seg_map, nuli_sva); 
5769 IFEND; 
5770 
5771 PROCEND; 
o S779 PROCEDURE [XREF] mmp$delete_page_from_monitor (p: Acel1l1; 
o 5780 page_count: integer; 
o 5781 VAR status: syt$monitor_status) ; 
o 5782 
5785 
5786 PROCEDURE [XREF] mmp$free_asid (asid: ost$asid; 
5787 aste_p: Ammt$active_ segment _table_entry); 
$788 
o 5791 
o 5782 PROCEDURE [XREF] mmp$delete_ pt_entry 
o 5783 { pfti: mmt$page_frame_index; 
o 5794 unlink_page_from_segment: boolean) ; 
o 58795 
5798 
57399 PROCEDURE [INLINE] mmp$get_max_sdt_sdtx_pointer 
5800 ( xcb_ p: Aost$execution_control_ block; 
5801 VAR sdt_p: mmt$max_sdt_p; 
5802 VAR sdtx_p: mmt$max_sdtx_p); 
5803 
° 6916 
° 6917 PROCEDURE [XREF] mmp$Smake_pt_entry (sva: ost$system_virtual_address; 
° 6318 pfti: mmt$page frame_index; 
o 6919 aste_p: Ammt$active_ segment _table_entry; 
° 6920 pfte_p: Ammt$page_frame_table_entry; 
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o 6921 VAR mpt_status: mmt$make_pt_entry status); 
© 6922 
69325 
6926 PROCEDURE [INLINE] mmp$nudge_ periodic call; 
6927 
6928 mmv$time_to_call_mem_mgr :=: 0; 
6929 osv$time_to_check_asyn := 0; 
6930 
6931 PROCEND mmp$nudge_per iodic call; 
6332 
o 6942 PROCEDURE [XREF] mmp$process_page_table_full (sva: ost$system_virtual_address; 
° 6943 VAR new_asid: ost$asid; 
Oo 6944 VAR new_asti: mmt$ast_ index; 
o 6945 VAR new_aste_p: Ammt$active segment _table_entry; 
Oo 6946 VAR pt_full_status: mmt$pt_full_ status) ; 
oO 6947 
6956 
6957 PROCEDURE [XREF] mmp$relink_page_ frame (pfti: mmt$page_frame_index; 
6958 queue_id: mmt$page_ frame _queue_id); 
63959 
o 6962 
Oo 6963 PROCEDURE [XREF] mmp$trim_job_working set 
Oo 6964 ( ijle_p: Ajmt$initiated_job_list_entry; 
Oo 6965 jeb_p: Ajmt$job_control_biock; 
o 6966 trim_to_swap_size: bootean ); 
+] 6967 
o 6968 
6971 PROCEDURE [XREF] mmp$write_ page _to_ disk 
6972 ( fde_p: gft$locked file _desc_entry_p; 
6973 pfti: mmt$page_ frame_index; 
6974 iotype: iot$io function; 
6975 io_id: mmtS$io_identifier ; 
6376 multiple page req: boolean; 
6977 VAR write status: mmt$write page _to_disk_ status) ; 
6978 
o 6981 PROCEDURE [INLINE] mtp$cst_p (VAR cst_p: Aost$cpu_state_table); 
7196 
7197 PROCEDURE [INLINE] mtp$set_status_abnormal (identifier: string (2); 
7198 condition: osc$max_ status _condition_number + 1... OF FFFFFFFFF( 16); 
7199 VAR status: syt$monitor_status) ; 
7200 
o 7210 
© 7211 PROCEDURE [INLINE] tmp$clear_lock [VAR lock: tmt$pti_lock); 
o 7212 
oO %7213 IF osv$cpus_logically_onm > 1 THEN 
oO 7214 IF lock.id <> #READ_REGISTER (oscS$pr_base_constant) THEN 
o 7215 i#program_error; {Interlock failure - no message passed for performance reasons} 
oO 7216 IFEND; 
o 7217 IF lock.count > O THEN 
o 7218 lock.count := lock.count - 1; 
o 7219 ELSE 
o 7220 lock.clear := 0; 
o 7221 IFEND; 
Oo 7222 IFEND; 
oO %7223 
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© 7224 PROCEND tmp$c lear_ lock; 
o 7225 
7234 " 
7235 PROCEDURE [XREF] tmp$find_next_xcb (search: tmt$fnx_search_type; 
7236 ijle_p: Ajmt$initiated_job_list_entry; 
7237 ijl_ordinal: jmt$ijl_ordinal; 
7238 VAR state: tmt$find_next_xcb_ state; 
7239 VAR xcb_p: Aost$execution_control block) ; 
7240 
° 7243 
° 7244 PROCEDURE [XREF] tmp$idie tasks_in_job 
fe 7245 ( ajl_ordinal: jmt$ajl_ordinal; 
oO 7246 swapout reason: jmt$swapout_reasons; 
oO 7247 VAR status: syt$monitor_status) ; 
° 7248 
7251 
7252 PROCEDURE [XREF] tmp$monitor_ flag job_tasks 
7253 monitor _flag_id: syt$monitor_flag; 
7254 ijle_p: Ajmt$initiated_job_list_entry) ; 
7255 
7256 
o 7259 PROCEDURE [XREF] tmp$restart_idiled_ tasks (ajl_ordinal: jmt$aji_ordina}l) ; 
° 7260 
7263 
71264 PROCEDURE [INLINE] tmp$set_lock (VAR lock: tmt$pti_ lock); 
7265 
7266 VAR 
7267 b: boolean, 
7268 be: integer; 
7269 
7270 IF osv$cpus_ logically on > 1 THEN 
7271 be :: #read_ register (osc$pr_base_ constant); 
7272 IF lock.id <> be THEN 
7273 REPEAT 
7274 #TEST_SET (lock. locked, b); 
7275 UNTIL NOT b; 
7276 lock.id := bec; 
7277 ELSE 
71278 lock.count :+= tock.count + 1; 
7279 IFEND; 
7280 IFEND; 
7281 
7282 PROCEND tmp$set_lock; 
7283 
° 7286 
Oo 7287 PROCEDURE [XREF] tmp$set_monitor_flag (task_id: ost$global_task_id; 
o 7288 flag_id: sytS$monitor_ flag; 
o 7289 VAR status: syt$monitor_status); 
7292 PROCEDURE [XREF] tmp$set_up_debug registers (ptilo: ost$task_index; 
7233 ijle_p: AjmtSinitiated job _list_entry; 
7294 xcb_p: Aost$execut ion_control_ block) ; 
° 7297 
o 7298 PROCEDURE [XREF] tmp$update_job_task_environment (ijle_p: Ajmt$initiated_job_list_entry; 
o 7299 ijl_ordinal: jmt$ijl_ordinal; 
o 7300 xcb_search: tmt$fnx_ search type) ; 
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°° 7301 
7304 
7305 { Global variables referenced by this module. 
7306 
7307 
7308 VAR 
7309 admv$p_active_ volume table: [XREF, oss$mainframe_wired] Admt$active_volume_table; 
7310 
i?) 7621 {Pointer to the AJL. } 
° 7622 VAR 
© 7623 jmv$ajl_p: [REF] Ajmt$active_job_list; 
7648 
7649 VAR 
7650 jimv$ijl_entry status statistics: [KREF] jmt$ijl_entry_status_statistics; 
7651 : 
© 7661 {Define pointer to Initiated Job List (IJL). 
° 7662 
© 7663 VAR 
Oo 7664 jimv$iji_p: [XREF] jmt$iji_p; 
T7692 
7693 VAR 
7694 imv$long wait swap_threshold: [XREF] integer; 
7695 
7696 VAR 
7697 jimv$null_ijl_ordinal: [XREF] jmt$ijl_ordinal; 
7698 
° 7701 VAR 
© 7702 jmv$service_ciasses: [XREF, oss$mainframe_wired] 
o 7703 array [jmt$service_class_index] of Ajmt$service_class_entry; 
° 7704 
7747 
7748 
7749 VAR 
7750 jmv$service_class_ stats lock: [KXREF] tmt$pt1_lock; 
7751 
oO 7754 {Define value of AJL ORDINAL used by the system job 
° 7755 
fe) 7756 VAR 
Oo 7757 imv$system_ajl_ordinal: [XREF] jmt$ajl_ordinal; 
° 7758 
7761 VAR 
7762 imv$system_ijl_ordinal: [XREF] jmt$ijl_ordinal; 
T7763 
° 7766 
°] 767 VAR 
o 7768 jmv$system_job_ssn: [XREF] jmt$system_supplied name; 
° 7769 ; 
7772 { Time for next periodic cali to job swapper from 
7773 {mtm$monitor_interrupt_handler. 
71774 
7775 VAR 
7776 isv$time_to_caill_job_ swapper: [XREF] integer ; 
7777 
7778 {Define minimum number of pages that must be kept in the free + availablie page 
7779 {queues. If the actual number drops belew this value, memory manager begins 
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7780 {an aggressive aging policy. If the number of page frames drops below mmv$aggressive aging level_2 
7781 {then only critical system tasks are assigned memory. User tasks are put into a memory wait queue. 
7782 
7783 VAR 
7784 mmvS$aggressive_aging level: [XREF] integer, 
7785 mmvSaggressive_ aging level _2: [XREF] integer; 
7786 
7787 {The fellowing variable defines the agining algorithm that is uwsed by memory manager. 
7788 { O - mo swapping active 
7789 = {. 1 - Swapping active 
7790 { > 1 - to be defined 
7791 VAR 
7792 mmv$aging algorithm: [XREF] integer; 
77933 {Pointer to the Active Segment Table - (AST).} 
7794 
7795 VAR 
7786 mmv$ast_p: [XREF] Ammt$active_segment_table; 
7797 
.°] 7800 
© 7801 { Global Page Queue List array. 
o 7802 
© 7803 VAR 
oO 7804 mmv$gpqi: [XREF] mmt$global_page_queue_list; 
7807 
7808 {Define template for an AST entry for a job fixed segment. This is used by the job Swapper to 
7809 {create an AST entry for job fixed of a job being swapped in. 
7810 
7811 VAR 
7812 mmav$initial job_fixed_ast_entry: [XREF] mmt$active_ segment _ table entry; 
7813 
oO 7816 
o 7817 VAR 
o 7818 mmv$max_working set size: [XREF] integer ; 
o 7819 
© 7820 { The foltowing variable contains the maximum segment number of a global template segment. 
Oo 7821 
o 7822 VAR 
Oo 7823 mmv$max_template_ segment _mumber: [XREF] integer; 
Oo 7824 
o 7825 VAR 
Oo 7826 mmv$min_ avail pages: [XREF] integer ; 
Oo 7827 
© 7828 {The Following variable indicates if the configuration consists of multiple 
9° 7829 {page MAPS that are not hardware connected for unified map purging - ie, 
© 7830 {if a page map purge is required each processor must purge its own map. 
Oo 7831 
Oo 7832 VAR 
o 7833 mmv$multiple page maps: [XREF] boolean; 
o 7834 
© 7835 {Pointer to the ’PAGE FRAME TABLE‘ (PFT) 
Oo 7836 
° 7837 VAR 
o 7838 mmv$pft_p: [XREF] Ammt$page_frame_tablie; 
o 78393 
7842 
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7843 VAR 


7844 mmv$reserved page count: [XREF] integer ; 
7845 
T8346 
7847 { Define a variable to contain the index of the last shared site queue that is actually being used. 
7848 
7849 VAR 
7850 mmv$last_active_shared_ queue: [XREF] mmt$global_page_ queue_index; 
ie] 7853 
° 7854 
°o 7855 VAR 
Oo 7856 mmv$swapping aic: [XREF] integer; 
° 78857 
3° 7858 { Timestamp that contains the free-running-clock value when a global ASID was last changed. 
° 7859 
° 7860 VAR 
o 7861 mmv$t ime changed _global_asid: [XREF] ost$free_ running clock; 
° 7862 
7865 
7866 { Timestamp that contains the free-running-clock value when a giobal ASID was last changed. 
78687 
7868 VAR 
7869 mmv$t ime_changed_ template _asid: [XREF] ost$free running clock; 
7870 
oO 7873 
© 7874 {Pointer to the system PAGE TABLE (PT). 
oO 7875 
oO 7876 VAR 
o 7877 mmv$pt_p: [XREF] Aost$page table; 
° 


7881 {The following variable contains a count of the number of page frames that can be reassigned to be 
7882 {used for another purpose. The count represents the number of pages that are in the free + available 
7883 {queues. The count is broken into two parts ~- pages with no I0 active, and pages with I0 active. 


7884 
7885 VAR 
7886 mmv$reassignable page frames: [XREF] mmt$reassignable_page_frames; 
© 7886 {Monitor segment tablie.} 
° 7897 
° 7898 VAR 
o 7899 mtv$monitor_ segment_table: [XREF] record 
o 78300 st: ALIGNED [O MOD 8] array [0 .. 4095] of mmt$segment_descriptor, 
° 7301 recend; 
° 7902 
7905 {Define SMU Communications Block (SCB). 
7906 
7907 VAR 
7908 mtv$scb: [XREF] mtt$smu_communicat ions block; 
°o 8044 
cel 8oas VAR 
Oo 8046 mtv$system_job_monitor_xcb_p: [XREF] Aost$execution_control block; 
° 8047 
8050 {System page size.} 
8051 


8052 VAR 
8053 osv$page_ size: [XREF] ost$page_size; 
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VAR 


tmv$pt1_lock: 


VAR 
tmv$swapin_in_progress: 


{XREF } 


SOURCE LIST OF jsm$monitor_mode_job_swapper 


NOS/VE js 
Giobal 


foe MeoMs Memos MoMeomeMeoMecMeoMoMeM—eoMeMeMeoMeMecMe—eMoMe Mem oMomomeoMeM ei eM olclci clei cliclci cl coli click olicHloliol sicli+Iici oie] 


monitor mode job swapper 


8067 
8068 
8069 
80790 
8071 
8072 
8073 
8074 
8075 
8076 


Declarations Declared by This Module 


NOS/VE CYBIL/II 


[XREF ] 


NOS/VE CYBIL/II 


tmt$pt 1_ lock; 


integer; 


1.0 89102 


1.0 89102 


1989-08-21 


1989-08-21 


in. 


} 


13:33:34 


13:33:34 


{ Giebal constants defined by this module. 
2? FMT (FORMAT := OFF) 77 
CONST 

reassigned_asid_list_length = 20, 

{ Define trace indexes for swap trace buffer. JSCSTI_UNUSED_ XX identifies free indexes. 
jsc$ti_min_index = 0, 
jsc$ti_no_memory_for_swap_in = 1, 
jsc$ti_new_job_fixed_asid = 2, 
jsc$ti_reuse_job_fixed_asid = 3, 
jsc$ti_reuse_job_fixed_asid_as = 4, { Reassign old ASID to job fixed. } 
jsc$ti_no_pages_for_sfd_on_si = 5, 
jsc$ti_sfd_freed = 6, 
jisc$ti_free_memory_si_aborted = 7, 
jsc$ti_free_ memory = 8, 
jsc$ti_pager_io_error = 10, 
jsc$ti_move_am_back_to_am = 11, 
jisc$ti_move_am_hack_to_am_pe = 12, { Page count of pages moved back to available modified. } 
jsc$ti_flush_am_pe = 13, { Page count of pages in am that were flushed. } 
isc$ti_filush_am_relink = 14, { Move am back to jwsS--write to disk reject.} 
jisc$ti_flush_am_ready = 15, { Task ready after flush. } 
jisc$ti_swapping queue_and_exec = 16, { Swap status of executing and swap direction of 
jsc$ti_allocate_swap_file = 17, { Call DM to allocate swap file in monitor mode. } 
jsc$ti_allocate_swap_file_jm = 18, { Allocate swap file in job mode. } 
jsc$ti_dm_transient_error = 19, { Device management transient error.} 
jisc$ti_change_asid_again = 20, 
jsc$ti_change_asid = 21, 
jsc$ti_change_asid_sfd = 22, { Update changed ASID‘s in swap file descriptor. } 

{ Trace indexes for events during reset to memory manager tables. 
jsc$ti_rmmt_no_change = 24, { No change in ASID.} 
jisc$ti_rmmt_pf = 25, { ASID change of page belonging to a permanent file. } 
jsc$ti_rmmt_pf_rec_ptm = 26, { Assign new ASID on job recovery and modified. } 
jisc$ti_rmmt_pf_rec_ptu = 27, { Job recovery, relink unmodified page into free queue. } 
isc$ti_rmmt_pf_assign_asid = 28, { Not job recovery, assign new ASID.} 
jsc$ti_rmmt_pf_reuse_ asid = 29, { Not job recovery, reuse ASID.} 
jsc$ti_rmmt_1lf_assign_asid = 30, { Assign ASID for page assigned to local file.} 
jisc$ti_rmmt_1lf_ reuse asid = 31, { Reuse ASID for page assigned to local file.} 
jisc$ti_rmmt_pt_done = 32, 
isc$ti_rmmt_pt_full = 33, 
isc$ti_rmmt_pt_full_ failed = 34, 
isc$ti_rmmt_pt_full_succ = 35, { Succeeded in recovering from page table full. } 
jsc$ti_rmmt_pte_exists_ pf = 36, { Permanent file page is now in shared queue. } 
isc$ti_rmmt_pte_exists_am = 37, { Local file page is still in Avail modeified queue. } 
isc$ti_rmmt_pte_exists_a = 38, { Local file page found in Avail queue. } 
isc$ti_rmmt pte _exists_err = 39, { Lecal file page found in Swapped error queue. } 

{ Trace buffer indexes for reset xcb and sdt tables. 


jisc$ti_rxcb_temp_asids_ changed 


= 40, 
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© 8122 jsc$ti_rxcb job_asids_ changed = 41, 
o 8123 isc$ti_rxcb glob_asids_ changed = 42, 
o 8124 jsc$ti_rxcb_fix_xcb_sdt = 43, : 
o 8125 jisc$ti rxcb_fix_asids = 44, 
o 8126 isc$ti_rxcb_fix_templ_asid = 45, 
© 8127 isc$ti_pt_full_reassign_jf = 46, 
o 8128 jsce$ti_rxcb_fix_jf_asid = 47, 
o 8128 jsc$ti_rxcb fix _job_asid = 48, 
o 8130 isc$ti_rxcb zero _job_asid = 49, 
oO 8131 isc$ti_rxcb_ recovery = 53, 
oO 8132 jsc$ti_rxcb_zero asid = 54, { Reset tables zeroed out an ASID in a segment table. } 
o 8133 
Oo 8134 jisc$ti_lwa = 55, { Long wait aging caiied} 
oO 8135 isc$ti_ilwa_cp_age = 56, { called cp aging} 
o 8136 isc$ti_lwa_stale_pages_ rem = 57, { total mumber of pages removed} 
© 8137 jsc$ti_iwa_stale_mod_pages_ rem =: 58, { number modified pages removed} 
© 8138 isc$ti_ilwa_ready task =: 59, { long wait aging caused task to go ready.} 
o 8139 
o 8140 isc$ti_swapin_io_error = 60, 
oO 8141 jsc$ti_swapout_io_error = 61, 
oO 8142 isc$ti_sif_idie_tasks_init = 63, { Swap in from idie tasks initiated. } 
Oo 8143 isc$ti_sif_wait_state = 64, { Swap in from a wait state.} 
Oo 8144 jisc$ti_sif swapout_io_init = 65, { Swap in from swap out io initiated or compieted. } 
° 8145 isc$ti_swapout_int_by_ swapin = 67, { Swap in requested on job being swapped out.} 
° 8146 isc$ti_swapin_int_by_swapout = 68, { Swap out requested on job being swapped in.} 
oO 8147 jsc$ti_nmo_ajl_ord_for_swap_in = 69, { Swap in aborted, could not assign AJL ordinal.} 
ce] 8148 isc$ti_swapout_from_job_mode = 76, { Swapout request from job mode} 
o 8149 isc$ti_swapout_from_mtr_mode = 77, { Swapout from monitor mode. } 
o 8150 isc$ti_swapin_from_job_mode = 78, { Swapin from job mode. } 
Oo 8151 jsc$ti_swapin_from_mtr_mode = 79, { Swapin from monitor mode. } 
ce) 8152 jsc$ti_swapin_mtr_ direct = 6&0, { Swapin from monitor mode - SO to R.} 
© 8g153 isc$ti_swapin_req status_bad = 81, { Swapin from job mode--advance swap got bad status.} 
o 8154 isc$ti_cd_idie_task_compiete = 82, { Change direction to in detected in idid task complete. } 
oO 8155 isc$ti_sif_idied_tasks_comp = 8&3, { Swap in from idie tasks complete. } 
oO 8156 isc$ti_cd_idie task_complete 2 = 86, { Change direction to IN in idle task complete--2nd check. } 
° 8157 jsc$ti_reserve_memory failed = 87, { Memory no longer available for reserve request on swapin.} 
Oo 8158 jsc$ti_cd_to_in_at_s2 = 88, { Changed direction to in at Swapped_io_compliete. } 
o 8159 isc$ti_cd_to_in_at_s = 88, { Changed direction to in at swapout_complete. } 
° 8160 isc$ti_init_swapin_io_error = 90, { 10 error discovered upon swapin io complete. } 
oO 8161 jisc$ti_init_swapout_io_error = 91, { I0 error discovered upon swapout io complete. } 
Oo 8162 jsc$ti_swapout_disk_down = 93, { Disk down discovered upon swapout io complete. } 
o 8163 isc$ti_swapin_disk_down = 94, { Disk down discovered upn swapin io compelete. } 
o 8164 jsc$ti_zero_out pages _for_sfd_1 = $5, { Abort swapout at wait alloc sfd--swapin req--O out pages needed. } 
Oo 8165 isc$ti_zero_out_pages for_sfd_ 2 = 96, { Adv swapout from wait alloc sfd--polling--O out pages needed. } 
o 8166 jsc$ti_no_ajlo_swapin_before_io = $7, { No ajlo availabie in swapin_before_io. } 
° 8167 jsc$ti_dump_shared_gq_for_sfd = 98, { Dump the shared queue to get pages for an SFD.} 
° 8168 jisc$ti_dump_shared_ queue = 99, { Dump the shared queue to claim enough pages to swap a job in.} 
° 8163 isc$ti_free_ readied _s2_job = 100, { Free an $2 job that has been readied in order to use its memory.} 
o 8170 isc$ti_no_ajlo_swapin_after_io = 101, { No ajlo available in swapin_after_io. } 
oO 8171 jsc$ti_advance_from_cannot_init = 103, { Advance swap state from io_cannot_init to io_not_init. } 
3° 8172 jsc$ti_page_q counts different = 104, { Page q counts different at job_io_complete. } 
oO 8173 jsc$ti_mtr_req adv_from_aj = 105, { Mtr request to advance from job_allocate_swap_file. } 
Oo 8174 jsc$ti_mtr_req_adv_from_sd = 106, { Mtr request to advance from swapped_io_cannot_init. } 
° 8175 isc$ti_ recalculate sje = 107, { Recalculate the sje after removing a job shared page. } 
oO 8176 jsc$ti_recal_sje_soO = 108, { Recalculate the sje -- SO state. } 
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o 8177 isc$ti_recal_sje_s2 = 1098, { Recalculate the sje -- S2 state. } 
Oo 8178 
o 81793 jsc$ti_riop_reltinked = 110, { Pages relinked into JWS from swapped error queue. } 
o 8180 jisc$ti_riop_mem_ freed = 111, { 10 error page belonging to a job that had freed memory. } 
oO 8181 isc$ti_riop_m_bit_reset = 112, { Pages that meeded to have M bit set.} 
o 8182 jsc$ti_riop_init = 113, { 10 error occurred on an initial write. } 
o 8183 
Oo 8184 isc$ti_no_ajlo_mtr_swapin = 114, 
oO 8185 
© 8186 
Oo 8187 
i] 8188 
Oo 8189 jsc$ti_max_index = 150; 
Oo 8190 
.°] 8191 77 FMT (FORMAT := ON) 77 
oO 8192 
o 8193 {[ Global variables defined by this module. 
oO 8194 
o 8195 VAR 
oO 8196 osv$debug: [XREF] array [0 15] of integer, 
Oo 81387 isv$swap_trace: [XDCL] array [ jsc$ti_min_index isc$ti_max_index] of integer, 
o 8198 
3° s1i9s { Define variable used to serialize job swapper access to the IJL when necessary. Check calls 
o 8200 { to tmp$set_lock and tmp$clear_lock for these cases. 
o $8201 
o 8202 isv$iji_serial_lock: [XDCL] tmt$ptil_lock := [FALSE, 0], 
oO 8203 isv$write stale pages: [XDCL, #GATE] boolean := FALSE, 
oO 8204 isv$swap_file_ page count: [XDCL, #GATE] jst$swap_file_page count, 
oO 8205 isv$iji_swap_queue list: [XDCL, #GATE] jst$ijl_swap_queue_list := 
Oo 8206 [Clo, OJ}, [0, OO}, O], [fo, Oo], [0, O}], OF, [1O, 0], [O, OO}, OF, Ifo, Oo], 0, 9], OF, lo, oO], 
© 8207 {o, Oo], Oo], [f0o, 0], [0, 0], oO)}], 
oO 8208 isv$enable_swap_file_statistics: [XDCL, #GATE] boolean := FALSE, 
o 8209 jisv$enable_swap_resident: [XDCL, #GATE] boolean := TRUE, 
oO 8210 isv$enable_ swap_resident_nmo_io: [XDCL, #GATE] boolean := TRUE, 
oO 8211 isv$enabie debug code: [XDCL, #GATE] boolean := FALSE, 
Oo 8212 jsv$hailt_on_swapin_failure: [XDCL, #GATE] boolean := FALSE, 
Oo 8213 jisv$free_ working set_on_swapout: [XOCL, #GATE] boolean := FALSE, 
oO 8214 isv$max_pages_first_swap_task: [XDCL, #GATE] integer := 65536, 
oO 8215 isv$maximum_pages_to_swap: [XDCL, #GATE] integer := 65536, 
oO 8216 isv$pages_needed_for_sfd: [XDCL] integer := Oo, 
© 8217 isv$swap_state_ statistics: [XDCL, #GATE] jst$swap_state_statistics, 
Oo 8218 isv$swap_file_ statistics: [XDCL, #GATE] jst$swap_file_statistics := 
© 8219 [0, 0, ©, ©, 0, 0, ©, ©, ©, ©, ©, 0, ©, 0, 0, 6, 0, 0, ©, 0, 0, 0, 0, 0, 0, 0, ©, 0, 0, O, 0, ©, Oo, 
° 8220 oO, Oo, °, oO, Oo, Oo, Oo, °, Oo, oO, oO, o, °, Oo, Oo, Oo, o, o, oO, °, oO, Oo, Oo, °, °, o, o, oO, o, O, Oo], oj, 
oO 8221 isv$swapped_page_entry_ size: [XDCL, #GATE] 0 Off(16) := 82, {deadstart init resets exact ly} 
o 8222 Syv$aliow_jr_test: [XDCL, #GATE] boolean := FALSE, 
o 8223 Syv$test_jr system: [XDCL, #GATE] syt$test_jr_ set := $syt$test_jr_set [1]; 
oO 8224 
o 8225 
o 8226 { 
© 8227 { Global type definitions defined by this module. 
o 8228 { 
o 8223 
Oo 8230 TYPE 
oO 8231 cybil pointer _ trick = record 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 


13:33:34 


13:33: 


NOS/VE js monitor mode job swapper 
Giebal Declarations Declared by This Module 
ce) 8232 case pointer type: 0 .. 1 of 
© 8233 = 0 
© 8234 Ssfd_p: Ajst$swap_file_descriptor, 
Oo 8235 z= 1 5 
©} 8236 pva: ost$pva, 
° 8237 casend, 
° 8238 recend; 
o 82398 
° 8240 VAR 
ce) 8241 kt: packed record 
° 8242 case boolean of 
oO 8243 = TRUE = 
© 8244 S$: string (5), 
Oo 8245 = FALSE = 
© 8246 fl: O .. OF FFFE(16), 
Oo 8247 f2: 0 .. OF FF(16), 
° 8248 casend, 
0 8249 recend; 
o 8250 
° 8251 
oO 8252 PROCEDURE [INLINE] trace 
o 8253 ( trace_index: jsc$ti_min_index .. jsc$ti_max_index; 
oO 8254 j: integer); 
fe 8255 
oO 8256 jsv$swap_trace [trace _index] := jsv$swap_trace [trace_index] + j; 
fe) 8257 PROCEND trace; 
ce) 8258 
o 8259 
© 8260 
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ce] 8262 
ce) 8263 PROCEDURE advance_swap 
4 8264 ( ijl_ordinal: jmt$ijl_ordinal; 
4 8265 ijle_p: Ajmt$initiated_job_list_entry; 
4 8266 VAR set_polling event: boolean; 
4 8267 VAR status: syt$monitor_ status) ; 
4 8268 
4 8263S { 
4 8270 { The purpose of this procedure is to advance the Swap as far as it can go without 
4 8271 { waiting. The swap is advanced until abnormal status is returned or a wait to compliete 
4 8272 { condition is encountered. If next _Swap_status <> jmc$iss null then that is moved 
4 8273 { to swap _ status and another cycle is taken through the advance swap, current swap status 
4 8274 { is processed first however. NEXT SWAP _ STATUS is used to indicate that a Swap wait state 
4 8275 { has completed and advancing the swap should continue. NEXT _ SWAP_STATUS is set in the 
4 8276 { procedures that can be entered asynchronously in this module. 
4 8277 { 
4 8278 { NOTE: 
4 8273 { Abnormal status iS returned only for those conditions that abort the swap. 
4 8280 { 
4 8281 { Mmv$reassignable page frames must be maintained. Swapped_io_not_initiated and 
4 8282 { swapped_io_cannot_initiate contains the job queues page count. Soon includes the 
4 8283 { job queues plus the SFD page count. 
4 8284 { 
4 8285 
4 8286 VAR 
4 8287 change_ Swap _ direction: boolean, 
4 8288 initiate Swapout_io: hoolean, 
4 82883 job_page_ count: mmt$page_frame_index, 
4 8290 last _swap_status: jmt$ijl_swap_status, 
4 8291 pages_ removed: mmt$page_frame_index, 
4 8282 queue_id: mmt$job_page_ queue_index, 
4 82933 total swapped page_count: 0 .. osc$max_page_ frames; 
4 8294 
4 8295 
4 8296 IF ijle_pA.swap_queue_link.queue_id <> jsc$isqi_swapping THEN 
E 8297 mtpSerror_stop (‘JS - advance_swap called for job not in swapping queue. ’); 
2E 8298 IFEND; 
2E 8239 
2E 8300 status.normal := TRUE; 
2E 8301 set_polling_ event := FALSE; 
2E 8302 last _Swap_status := ijle_p4.swap_status; 
2E 8303 
2E 8304 WHILE status.normal DO 
44 8305 CASE ijieé_ pA.swap_status OF 
D& 8306 
D&S 8307 = jmc$iss_executing = { R } 
D&S 8308 
D& 8309 IF ijle_pA.entry status >» jmc$ies_ swapped _in THEN 
E2 83106 mtp$error_ stop (’JS -- bad swap status - swapout executing job’); 
106 8311 ELSE 
106 8312 
106 686313 { Cover the case where may go through the advance swap loop one time after job has been swapped in. 
106 8314 : 
106 8315 trace (jsc$ti_swapping queue_and_ exec, 1); 
106 8316 . RETURN; 
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116 8317 IFEND; 
11A 8318 
11A 8318 = jmc$iss_job_idte_tasks_complete = { TJ } 
114A 8320 
114 8321 IF ijle_pA.entry_status < jmce$ies swapped _out THEN 
124 8322 trace (jsc$ti_sif_idled_tasks_comp, 1); 
124 8323 ijle_p4.next_swap_status := jmc$iss_ null; 
124 8324 restart_idiled_tasks (ijl_ordinal, ijle_p); 
293A 8325 RETURN; 
ZAO0 8326 ELSE 
2A0 8327 jmp$free_ajl_entry (ijle_p, jmc$swapping aj); 
2B4 8328 calculate _swapped_pages (ijile_p); 
2E4 8329 jisv$swap_file page _count.swap_count := jsv$swap_file_page_count.swap_count + 1; 
2E4 8330 jsv$swap_file page _count.page count = jsv$swap_file_page_count.page count + 
2E4 8331 ijle_pA.swap_data.swapped_job_page_ count ; 
2E4 8332 
2E4 8333 initiate _swapout_io := ((mmv$reassignable_ page _frames.now + mmv$reassignable_ page frames.soon) <=: 
340 8334 jimv$ long _wait_swap_threshold) OR NOT jsv$enable_swap_resident_no_io; 
340 8335 
340 8336 IF ijle_p”.entry_ status < jmc$ies_swapped_out THEN 
344A 8337 trace (jsc$ti_cd_idie_task_compiete, 1); 
344 8338 swapin_before_io (ijl_ordinal, ijle_p); 
364 8339 RETURN; 
364A 83406 ELSEIF NOT initiate swapout_io THEN 
36E 8341 jsp$relink_swap_queuve (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_not_init); 
388 8342 advance swap _state (ijle_p, jmc$iss_swapped_no_io) ; 
39C 8343 
39C 8344 { Recheck Swap direction. There is a timing problem here; direction can change just after it is checked 
39C 8345 { above, and the job sits in the SO queue for two minutes before advancing. 
39C 8346 
398C 8347 IF ijle_pA.entry_ status < jme$ies_ swapped out THEN 
3A6 8348 isp$relink_swap_queve (ijl_ordinal, ijle_p jisc$isqi_ swapping) ; 
SBE 8349 trace (jsc$ti_cd_idie_task_complete 2, 1); 
3cc 8350 ELSE 
3cC 8351 RETURN ; 
3CE 8&352 IFEND; 
304 8353 
304 8354 ELSE 
3D4 8355 advance _swap_state (ijle_p, jmc$iss_flush_am_pages) ; 
3E8 8&356 IFEND; 
SEC 8357 IFEND; 
3F4 8358 
3F4 8359 = jmeS$iss_swapped_no_io = { So } 
3F4 8360 
3F4 8361 IF ijle_pA.entry_ status < jmc$ies_swapped_out THEN 
3FE 8362 Swapin_before_io (ijl_ordinal, ijle_p); 
40E 8363 RETURN; 
414 8364 
414 8365 ELSE 
414 8366 isp$relink_swap_queue (ijl_ordinal, ijle_p, jseS$isqi_swapping) ; 
42C 8367 advance _ swap_state (ijle_p, jmc$iss_ flush_am_pages) ; , 
44c 8368 IFEND ; 
454 8369 
454 8370 = jmce$iss_flush_am_pages = { FA } 
454 8371 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.060 89102 1989-08-21 13:33:34 PAGE 
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454 8372 flush_am_pages to_disk (ijl_ordinai, ijie_p); 
464 8373 calculate sfd_iength (ijle_p); 
472 83748 advance_swap_state (ijle_p, jmc$iss_allocate_swap_fitle) ; 
48A 8375 
48K 8376 = jme$S$iss_allocate_swap_file = { AF } 
48A 8377 
483A 8378 IF ijle pA.swap_data.swapping_io_error <= ioc$allocate_file space THEN 
492 8379 allocate _swap_file (ijle_p, status); 
4AE6 8380 IF NOT status.normal THEN 
AE 8381 IF status.condition = dme$transient_error THEN 
4BE 8382 advance _swap_state (ijle_p, jmc$iss_wait_allocate swap _file); 
402 8383 set _ polling _event := TRUE; 
4p0C 8384 ELSE 
4DCc 8385 ijle_pA.swap_data.swapping_io_error := ioc$allocate_file_space; 
4pC 8386 advance _swap_state (ijle_p, jmcec$iss_job_allocate swap file); 
4F6 8387 imp$activate_job_mode_swapper ; 
4FE 8388 IFEND; 
4FE 8389 status.nmormal := TRUE; 
4FE 8390 RETURN; 
508 8391 ELSE 
508 83392 mmv$reassignable page frames.swapout_io_not_initiated ::= 
508 8393 mmv$reassignable page _frames.swapout_io not_initiated - 
508 8394 ijile_pA.swap_data.swapped job_page_ count + ijle_ pA. job _fixed_ contiguous pages; 
508 8395 mmv$reassignable page _ frames.soon := mmv$reassignable page _frames.soon + 
S08 8396 ijle p”.swap_data.swapped job _page count - ijle pA. job_fixed contiguous pages; 
508 8397 
508 8398 ijle_pA.notify swapper _when_io_ complete := TRUE; 
508 8398 IF ijle_ pA. inhibit swap_count <> O THEN 
53A 8400 advance _swap_state (ijle_p, jmc$iss_wait_job_io_complete) ; 
54E 8401 RETURN ; 
554 8402 ELSE 
554 8403 ijle_pA.notify swapper_when_io_ complete := FALSE; 
554 8404 advance _ swap_state (ijle_p, jmc$iss_job_io_complete) ; 
S6C #8405 IFEND; 
SG6E 8406 IFEND; 
S572 8407 ELSE 
572. 8408 
572 8409 { The swap file encountered an error on a previous sSwapout. Call job mode swapper to try to 
572 8410 { reassign or reallocate the swap file. 
S72 8411 
S572 8412 advance _ swap_state (ijle_p, jmc$iss_job_alliocate swap_file); 
586 8413 impS$activate job _mode_ swapper ; 
S8E 8414 RETURN; 
590 8415 IFEND; 
S9A 8416 
598A 8417 = jmc$iss_job_io_compiete = { uc } 
S59A 8418 
S59A 84139 { Verify that page queve counts are the same; if io complieted abnormally the page queue counts 
594 8420 { may be differrent. The swap file descriptor needs to be re-allocated. Swapout_io_not_initiated 
S9A 8421 { and soon needs to be updated. 
SSA 8422 
SSA 8423 IF (ijle_p4.swap_data.swapped_job_entry. job _page_queue_count [mmc$pq_job_io_error] <> 
5B2 8424 ijle_p’.job_page_queue_list [mmc$pq_job_io_error].count) OR 
5B2 8425 {ijle_ pA.swap_data.swapped_job_entry. job_page_queue_count [mmc$pq_job_ working set] <> 
5SB2 8426 


ijle_p’. job_page_queue_list [mmc$pq_job_working set].count) THEN 


111 


112 
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8427 
8428 
84295 
8430 
8431 
8432 
8433 
8434 
8435 
8436 
8437 
8438 
8439 
8440 
8441 
8442 
8443 
8444 
84a5 
8446 
8447 
8448 
8449 
8450 
8451 
8452 
8453 
8454 
8455 
8456 
8457 
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TAA 
TAA 
TAA 
7Cc 
7DC 
TE2 
TE2 
TE2 
7E2 
802 
&8O2 
&18 
&18 
818 
818 
818 
818 
848 
848 
848 


8482 
8483 
8484 
8485 
8486 
8487 
8488 
84893 
8490 
8491 
8492 
8493 
8494 
8495 
8496 
8497 
8498 
g4g9 


{ Try freeing enough pages from the shared queue for 
{ still 


AMO es 


trace (jsc$ti_page_q counts different, 1); 

mmv$reassignable page_frames.soon := mmv$reassignable_page_frames.soon - 
ijle_p4.swap_data.swapped_ job_page_ count + ijle_p’. job_fixed contiguous pages; 

calculate _swapped_pages [(ijle_p); 

calculate_sfd_length (ijle_p); 


advance_swap_state (ijle_p, jmc$iss_allocate_swap_file); 
ELSE 
advance_swap_state (ijle_p, imc$iss_allocate_sfd) ; 
IFEND; 
jmc$iss_allocate_sfd = { AD } 
assign_pages_for_sfd (ijle_p, ijl_ordinal, jsc$sc_out, status); 
IF NOT status.normal AND (status.condition = mme$no_free_pages) THEN 


are not enough free pages then cause mmp$periodic_call to be called to do some aging. 


Status.normal :=:= TRUE; 
trace (jsc$ti_dump_shared_q_for_sfd, 1); 


the sfd and try to allocate the sfd again. 


13:33:34 


If there 


mmp$dump_shared_ queue (ijle_p%.swap_data.swapped_job_entry.swap_file_ descriptor page count) ; 


assign_pages_for_sfd (ijle_p, ijl_ordinal, jsc$sd_out, status); 
IF NOT status.normal THEN 
status.nmormal := TRUE; 
isv$pages_ needed _for_sfd := jsv$pages_needed_for_sfd + 
ijle_p*.swap_data.swapped_job_entry.swap_file descriptor page count; 
mmp$nudge_periodic_cali; 
advance_swap_state (ijle_p, jmc$iss_wait_allocate_sfd) ; 
set_ polling event := TRUE; 
RETURN; 
IFEND; 
ELSEIF NOT status.normal THEN 
status.mormal := TRUE; 
advance_swap_state (ijle_p, jmc$iss_wait_allocate_ sfd) ; 
set_polling event := TRUE; 
RETURN; 
IFEND; 


When the job was last swapped in and the old swap file descriptor freed, the IJL.PURGE MAP_TIMESTAMP 
was set equal to the value of the free running clock. The page map must be purged if it nas not been 
purged since that time. If the map is NOT purged, references to the SFD may use the OLD page frames 


that were assigned at the PREVIOUS swapin. Purging of the map has been delayed since it will 


NOT be required at this point since something else will have purged the map. 


XCB 


mmp$conditional_purge_all_map (ijle_p4.sfd_purge_ timestamp) ; 


access will be inhibited from now on. Set the timestamp mow for reassigning ASIDs. 


ijle_p’.swap_data.asid_reassigned_ timestamp :: #FREE RUNNING CLOCK (0); 
advance_swap_state (ijle_p, jmc$iss_initiate_swapout_io); 


jimc$iss swapped_io_canmnot_init = { SD } 


mmvS$reassignable_ page _ frames.swapout_io_cannot_initiate ::= 
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mmv$reassignable_ page_frames.swapout_io_cannot_initiate - 
ijle_pA.swap_data.swapped_ job_page_ count + ijle_p4.job_fixed_ contiguous pages; 
IF ijie_pA.entry_ status < jmc$ies_swapped_out THEN 
Swapin_after_io (ijl_ordinal, ijle_p); 


RETURN ; 

ELSE 
mmv$reassignable_ page_frames.soon := mmv$reassignable_page_frames.soon + 

ijle_pA.swap_data.swapped_job_page_ count - ijle_p%.job_fixed contiguous pages; 

advance_swap_state (ijle_p, jmc$iss_allocate_sfd); 

IFEND; 

trace (jsc$ti_advance_from_cannot_init, 1); 

jmc$iss_initiate_swapout_io = { os } 

total _ swapped page count := ijle_ p4.swap_data.swapped_ job _page_ count + 


ijle_p4%.swap_data.swapped_job_entry.swap_file_ descriptor _ page count, 
job_swapping_io (ijl_ordinal, ijle_p, ijle_p4.swap_data.swap_file_sfid, ioc$swap_out, 
total swapped _ page count, ijle_ p%.swap_io_control, status); 


IF NOT status.normal THEN 
IF status.condition = ioe$unit_disabled THEN 
trace (jsc$ti_init_swapout_io_error, 1); 
ijle_pA.swap_data.swapping_io_error := ioc$unrecovered_error_unit_down; 
process_io_error_on_swapout (ijl_ordinal, ijle_p, set polling event) ; 


ELSE 
set_ polling event = TRUE; 
advance_swap_state (ijle_p, jmc$iss_wait_swapout_io_init); 
IFEND ; 
status.nmormal := TRUE; 
RETURN ; 
ELSE 
advance _swap_state (ijle_p, jmc$iss_ swapout_io_initiated) ; 
IFEND ; 
imc$iss_swapout_io_complete = { oc } 


IF ijle_pA.swap_data.swapping jio_error <> ioc$no_error THEN 

ijle_p4.swap_io_control.spd_index := LOWERVALUE (mmt$page_frame_index) ; 

IF ijle_pA.swap_data.swapping_io_error = ioc$unrecovered_error_unit down THEN 
trace (jsc$ti_swapout disk down, 1); 
advance_swap_state (ijle_p, jmc$iss_initiate swapout_io); 

ELSE 
trace (jsc$ti_swapout_io_error, 1); 
process _io_error_on_swapout (ijl_erdinal, ijle_p, set_polling event); 
RETURN; 

IFEND; 


ELSE 
free_swap_file_ descriptor (ijle_p, ijl_ordinal); 


usually 
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IF (mmv$reassignable_page_frames.now < mmv$min_avail_pages) OR NOT jsv$enable_swap_resident THEN 


last_swap_ status :: jmc$iss_swapout_io_compiete; 
advance _swap_state (ijle_p, jmc$iss_free_ swapped memory) ; 


PAGE 


PAGE 


113 


114 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.060 89102 1989-08-21 13:33:34 PAGE 115 


NOS/VE js : monitor mode job swapper 


ADVANCE SWAP 
A&S4 8837 ELSE 
A64& 8838 
AG4 8s3s { Increment reassignable page frames NOW and decrement SOON. 
AG4 8540 : 
A64 8541 mmv$reassignable page _frames.soon :: mmv$reassignable page frames.soon - 
A644 8542 ijle_p%.swap_data.swapped_job_page_ count + ijle_p”.job_fixed contiguous pages; 
AG4 8543 mmv$reassignable page _frames.now := mmv$reassignable_page_frames.now + 
AbG 8544 ijle_pA.swap_data.swapped_job_page count - ijle pA. job_fixed contiguous pages; 
A644 8545 advance _swap_State (ijle_p, jmc$iss_Swapped_io_complete) ; 
A94 8546 jsp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_completed) ; 
ABO 8547 
ABO 8548 { Recheck the swap direction. 
ABO 8549 { On a dual CPU system, the swap direction may have changed (because a 
ABO 8550 { ready task was processed in tmp$switch_task) just as the swap status 
ABO 8551 { was advanced to swapped_io_ completed. 
ABO 8552 
ABO 8553 IF ijle_pA.entry status < jmc$ies_swapped_out THEN 
ABA 8554 jsp$relink swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 
AD2 8555 trace (jsc$ti_cd_to_in_at_s2, 1); 
AEO 8556 ELSE 
AEO 8557 RETURN; 
AE2 8558 IFEND ; 
AEG 8558 IFEND; 
AEA 8560 IFEND; 
AF2 8561 
AF2 8562 = jmc$iss_Swapped_io_complete = { S2 } 
AF2 8563 
AF2 8564 IF ijle_pA.entry_ status < jmc$S$ies swapped out THEN 
AFC 8565 ijle_p4.swap_io_control.spd_index : = LOWERVALUE (mmt$page_frame_index) ; 
AFC 8566 mmv$reassignable_ page _frames.now := mmv$reassignable_ page frames.now - 
AFC 8567 ijle_p”.swap_data.swapped job page count + ijle_pA.job_fixed_ contiguous pages; 
AFC 8568 Swapin_after_io (ijl ordinal, ijle_p); 
B2A 8&5698 RETURN; 
B30 8570 ELSE 
B30 8571 last_swap_status := jmc$iss_ swapped_io_complete; 
B30 8572 advance _ swap_state (ijle_p, jmc$iss_ free_swapped_memory) ; 
B50 85873 : IFEND; 
B58 8574 
BS8 8575 = jmc$iss_free_ swapped _memory = { FM } 
B58 8576 
BS&8 8577 free _ swapped _jobs_mm_resources (ijle_p, ijl_ordinal, last_swap_status) ; 
BEA 8578 advance _ swap _state (ijle_p, jmcS$iss_swapout_ compiete) ; 
B7A 8&§&78 jisp$relink_swap_queve [(ijl_ordinal, ijle_p, jsc$isqi_swapped_ out); 
BAO 8580 
BAO 8581 { Do not return yet; need to loop through again to check swap direction. 
BAO 8582 { On a dual CPU system, the swap direction may have changed (because a 
BAO 8583 { ready task was processed in tmp$switch_task) just as the swap status 
BAO 8584 { was advanced to swapout_compliete. 
Bao 8585 
BAO 8586 
BAO 8587 = jmc$iss_ swapout_complete = { S$ } 
BAO &588 
BAO 8589 IF ijile_pA.entry status < jmc$ies _ Swapped_out THEN 


BAA 8591 { Check if the job is in the swapping queue; because of dual CPU timing, the 
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job may have been relinked to the swapped out queue after the job was readied 


a 
b 
Dp 
o 
a 
wo 
Nn 
ro om 


BAA &85393 and direction set to IN. 

BAA 8594 

BAA 8595 IF ijle_pA.swap_queue_link.queue_id <> jsc$isqi_swapping THEN 

BB2 8596 isp$relink_swap_queue [(ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 

BCA 8597 trace (jsc$ti_cd_to_in_at_s, 1); 

BD8& 8598 IFEND; 

BOs g8599 

BbDs 8600 { Add up the swapped job page count again. If job shared pages were removed from the 
BD&8 8601 { job’s working set while the job was in the swapped_io_complete ($2) state, the 
BD&8 8602 { Swapped job page count was changed to reflect the new (lower) working set size. 
BD8 8603 { However, all pages that were written out need to be read back in, so the swapped 
BD& 8604 { job page count needs to be reset to the total written out. 

Bos 8605 

BD8& 8606 job _page count := 0; 

BO&8 8607 FOR queue_id := LOWERVALUE (mmt$job_page_queue_index) TO UPPERVALUE (mmt$ job_page_queue_index) DO 
BES 8608 job_page_count := job _page_ count + ijle_p%.swap_data.Swapped_job_entry. 
BES 8&609 job_page_queve_ count [queue_id]; 

BES 8610 FOREND; 

BFE 8611 i1jle_pA.swap_data.swapped job _page count := job page_count; 

BFG6 8612 advance_swap_state (ijle_p, jmc$iss_swapin_requested) ; 

C14 8613 ELSE 

C14 8614 RETURN; 

Ci6 8615 IFEND; 

C1E 8616 

CiE 8617 = jmc$iss_Sswapin_requested = { IR } 

CiE 8618 

CiE 8619 ijle_p4.swap_io_control.spd_index := LOWERVALUE (mmt$page_frame_index) ; 
C1E 8620 claim_pages_for_swap_in (ijl_ordinal, ijle_p, status); 

c38 8621 

C38 8622 IF NOT status.normal THEN 

C40) 68623 advance_swap_state (ijle_p, jmc$iss_swapout_complete) ; 

C50 8624 isp$relink swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapped_out); 

céc 8625 imp$reset_job_to_swapped_out (ijl_ordinal); 

c7c 8626 RETURN; 

C82 8627 ELSE 

C&2 8628 advance _swap_state (ijle_p, jmc$iss_Sswapin_resource_ claimed) ; 

CS6 8629 IFENO; 

CAO 8630 

CAO 8631 

CAO 8632 = jmc$iss_swapin_resource ciaimed = { IS } 

CAO 8633 

CAO 8634 total swapped page _ count := ijle_p4.swap_data.swapped job page count + 

CAO 8635 ijle_p4.swap_data.swapped_ job_entry.swap_file_ descriptor page_count; 
CAO €8s636 job_swapping io (ijl_ordinail, ijle_p, ijle_p4A.swap_data.swap_ file _sfid, ioc$Swap_in, 
Cd&8 8637 total swapped page _ count, ijle_p%.swap_io_control, status); 

Cos8 8638 IF NOT status.normal THEN 

CE2 8639 IF status.condition = ioe$unit_disabled THEN 

CF2 8640 trace (jsc$ti_init_swapin_io_error, 1); 

CF2 8641 process _io_error_on_swapin (ijl_ordinal, ijle_p); 

D18 8642 RETURN; 

DIE 8643 

DIE 8644 ELSE 

D1E 8645 advance_swap_state (ijie_p, jmce$iss_wait_swapin_io_init); 

D30 8646 set_polling event = TRUE; = 
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D30 8647 
D3A 8648 
D3Cc 8649 
p3c 8650 
D3c 8651 
DSC 8652 
DSc 8653 
DSC 8654 
DE2 8655 
D62 8656 
DG2 8657 
D&E2 8658 
D&2 8659 
078 8660 
D7E 8661 
D7E 8662 
DSE 8663 
DAS 8664 
DAS 8665 
DAS 8666 
OC6& 8667 
DCcés& 8668 
DCC 8669 
DCC 8670 
DDO6 8671 
DOG 8672 
DO6 8673 
DOE 8674 
DOS 8675 
DFA 8676 

8677 

8678 

8679 

8680 

8681 
DFA 8682 
DFA 8683 
EOA 8684 
E26 8685 
ESA 8686 
E40 8687 
E40 8688 
E40 8689 
E40 8690 
E40 8691 
E40 8692 
E62 8633 
E62 8694 
E6C 8695 
E7C 8696 
E9O 8697 
EAC 8698 
EBC 8699 
ED2 8700 
EDA 8701 


SOURCE LIST OF 
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EF6 8702 
FOA 8703 
FIA 8704 
F2A 8705 
F40 8706 
F40 8707 
FSC 8708 
F5C 8708 
FSC 8710 
FSC 8711 
FSE 8712 
F66 8713 
F66 8714 
F66 8715 
F66 8716 
F66 8717 
F66 8718 
F66 8719 
FC6 8720 
FC6 8721 
FC6 8722 
FC6 8723 
FC6 8724 
FCA 8725 
FD& 8726 
FD4 8727 
FF2 8728 
FF8 3729 
FF& 8730 
1004 8731 
1016 8732 
1020 8733 
1020 8734 
1046 8735 
104A 8736 
104E 8737 
1056 8738 
1068 8739 
1074 8740 
1074 8741 
1076 8742 
107A 8743 
1074 8744 
1082 8745 
1082 8746 


status.normal := TRUE; 
IFEND; 
ELSE 
tmv$swapin_in progress := tmv$swapin_in_progress + 1; 
advance swap_state (ijle_p, jmc$iss_swapin_io_initiated) ; 
IFEND; 


RETURN; 
= jmc$iss_Sswapin_io_complete = { IC } 


tmv$swapin_in_progress LF tmv$swapin_in progress - 1; 
IF ijle_p4.swap_data.swapping_ io_error <> ioc$no_error THEN 
IF ijle_p%.swap_data.swapping_io_error = ioc$unrecovered_error_unit_down THEN 
trace (jsc$ti_swapin_disk_down, 1) ; 
advance_swap_state (ijle_p, jmc$iss_swapin_resource_ claimed) ; 
ijle_p%.swap_io_control.spd_ index := LOWERVALUE (mmt$page_frame_index) ; 


ELSE 
trace (jsc$ti_swapin_io_error, 1); 
process _io_error_on_swapin (ijl_ordinal, ijle_p); 
RETURN ; 

IFEND ; 


ELSEIF ijle_p%.entry status >» jmcS$ies_swapped_in THEN 
{ Abort the swapin, received request to swap job out again. 


trace (jsc$ti_swapin_int_by_swapout, 1); : 
free _ swapped jobs_mm_resources (ijle_p, ijl_ordinal, jmc$iss_swapin_io_complete) ; 
?IF debug = TRUE THEN 
IF syv$allow_jr_test THEN 
IF syc$tjr_mtr_fsjmmr IN syv$test_jr_system THEN 
mtp$error_ stop (’JOB RECOVERY TEST’); 
IFEND; 
IFEND; 
?IFEND 
advance _swap_state (ijle_p, jmc$iss_swapout_complete) ; 
isp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapped_out); 
imp$free_ajl_entry (ijle_p, jmc$swapping_aj1); 
RETURN; 
ELSE 


{ Restore memory manager tables for job image read from mass storage, update ASID’s in job’s 
{ segment tables and the system file table. Swap status iS advanced to executing if successful. 


reset_swapped_job_mm_tables (ijl_ordinal, ijle_p, ijle_p4A.swap_data.swapped_job_entry, 
ijle_p’%.sfd_p, status); 
IF NOT status.normal THEN 


IF status.condition = jse$pt_full_on_swap_in THEN 
advance _swap_state (ijle_p, jmc$iss_ swapout_complete) ; 
jispS$relink_swap_queue [(ijl_ordinal, ijle_p, jsc$isqi_swapped_out}; 


jmp$reset_job_to_swapped_ out (ijl_ordinal)j; 
jmp$free_ajl_entry (ijle_p, jimc$swapping aj); 

ELSEIF status.condition = jse$bad_swap_file_data_detected THEN 
isp$relink swap queue (ijl_ordinal, ijle_p, jsc$isqi_swapped_ out); 
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free_swapped_jobs_mm_resources (ijle_p, ijl_ordinal, jmc$iss_swapin_io_complete) ; 
advance _swap_state (ijle_p, jmc$iss_swapout_complete) ; 
Smp$recognize_job_dead (i jl_ordina?) ; 
jimp$free_ajl_entry (ijle_p, jmc$swapping_aj1); 

ELSE 
mtp$error_ stop (’JS - unexpected status on reset MM tables’); 

IFEND ; 

IFEND ; 


RETURN ; 
IFEND ; 


ELSE 
{ Process the unselected case, check if change in swap direction or if next Swap status is set. 


last_swap_status := ijle_p”.swap_status; 

change_swap_direction := ((last_swap_status <= UPPERVALUE (jmt$swapout)) AND 
(last _swap_status >= LOWERVALUE (jmt$swapout)) AND 
(ijle_pA.entry_ status < jmc$ies_ swapped_out))} OR 
((last_swap_status <= UPPERVALUE ( jmt$swapin)) AND 


(last_swap_status >= LOWERVALUE (jmt$swapin)) AND (ijle_pA.entry_status >» jmc$ies_ swapped_in)); 


IF change swap_direction THEN 
IF ijle_prA.entry status < jmc$ies_swapped out THEN 

trace (jsc$ti_swapout_int_by swapin, 1); 

direction_ changed to_in (ijl_ordinal, ijie_p); 

RETURN; 

ELSE {direction is out} 

IF ijle_p4.next swap _status = jmc$iss_ swapin_io_complete THEN 
advance _swap_state (ijle_p, ijle_p4.next_swap_status) ; 
ijle_p%.next_ swap status := jmc$iss_ null; 

ELSE 
mtp$error_ stop (’JS--bad swap status-Swapin changed direction’); 

IFEND; 

IFEND; 

ELSEIF (ijle_p%.next_swap_status <> jmc$iss_mui1) THEN 
advance_swap_state (ijle_p, ijle p%.next_swap_status) ; 
ijle_pA.next swap_status := jmc$iss_null; 

ELSE 
RETURN; 

IFEND; 

CASEND; 
WHILEND; 


PROCEND advance_swap; 
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SOURCE LIST OF jsm$monitor _mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE js : monitor mode job swapper 
ADVANCE _SWAP_STATE 
o 8748 
o 8749 { 
° 8750 { This procedure is responsible for updating the job swap status in the IJL. In addition 
° 8751 { to maintaining job status, this procedure also keep statistics on the total amount of 
o 8752 { time spent in a state and the new state that was entered from the current state. This is 
o 8753 { maintained in a 2-dimensional matrix as follows: 
o 8754 { 
Oo 8755 { 
o 8756 f{ new state 
o 8757 { xx XX XX XK KK KK KK KK each element in the matrix contains: 
o 8758 { xx MK KK MK MK KK MK KX count - nmumber of transitions between states 
o 8759 { old xx XK MK MK MK MK KK KX time - total time spent in old state prior to 
Oo 8760 { state xx KX MK KK KK KM MK XX transition to new state 
o 8761 f xx XX KK XK XK KX KK MX 
oO 8762 { 
o 8763 
o 8764 
o 8765 
Oo 8s8&766 PROCEDURE advance_swap_state 
o 8767 ijle_p: Ajmt$initiated_job_list_entry; 
Oo 8768 new_swap_status: jmt$ijl_swap_status) ; 
o 8769 
© 8s&770 VAR 
oO 8771 current_time: ost$free_ running clock, 
oO 8772 delta_time: ost$free_ running clock, 
oO 8773 old swap_status: jmt$ijl_swap_status; 
oO 8774 
Oo 8775 old _swap_status := ijle_p4.swap_status; 
4 8776 ijle_p4.last_swap_status := old _swap_status; 
4 8777 current_time := #FREE_RUNNING CLOCK (0); 
14 8778 detta_ time := current_time - ijle_ p4.swap_data.timestamp; 
14 8773 
14 8780 jsv$swap_state_ statistics [old _swap_status] [new_swap_status]. 
14 8781 count : = jsv$swap_state statistics [old _swap_status] [new_swap_status].count + 1; 
14 8782 
14 8783 jsv$swap_state_ statistics [old_swap_status] [new_swap_status]. 
14 8784 total_time := jsv$swap_state statistics [old swap_status] [new _swap_ status] .total_time + delta_time; 
14 8785 
14 8786 IF delta_time > jsv$Swap_state_statistics [old_swap_status] [new_swap_status].maximum_time THEN 
46 8787 IF delta_time > UPPERVALUE (jsv$swap_state_ statistics [old _swap_status] [new _swap_status]. 
4E 8788 maximum_time) THEN 
4E 8789 jisv$swap_state_ statistics [old _swap_status] [new_swap_status]. 
5A 87390 maximum_time := UPPERVALUE (jsv$swap_state_statistics [old swap_status] [new_swap_status]. 
SA 879 1 maximum_time) ; 
SA 8792 ELSE 
5A 87393 isv$swap_state statistics [old swap_status] [new _swap_status].maximum_time := delta_time; 
SE 8794 IFEND; 
5E 8795 IFEND; 
SE 8736 
5E 87397 ijle_p4%.swap_data.timestamp := current _time; 
SE 8738 ijle_p%.swap_status := new_swap_status; 
SE 8739 
SE 8800 PROCEND advance _swap_state; 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 
NOS/VE js : monitor mode job swapper 
ALLOCATE SWAP_FILE 
o 8802 
© 8803 { PURPOSE: 
°o 8804 { This procedure determines if the swap file is large enough, and allocates more space if necessary. 
Oo 8805 
oO 8806 PROCEDURE allocate_swap_file 
° 8807 ( ijle_p: Ajmt$initiated_job_list_entry; 
© 8808 VAR status: syt$monitor_ status) ; 
o 8808 
Oo 8&8&10 VAR 
° 8811 fde_p: gftS$locked file _desc_entry_p, 
Oo 8812 file status: dmt$file_allocation_status, 
o 8813 ignore_aus_ obtained: amt$file bpyte_address, 
° 8814 ignore _overfiow: boolean, 
oO 8815 total _ swapped page_count: © .. osc$max_page_ frames; 
Oo 8816 
o 8817 Sstatus.normal := TRUE; 
4 8818 
4 8819 total swapped page count := ijle_pA.swap_data.swapped_job_page_count + 
4 8820 ijle_pA.swap_data.swapped_job_entry.swap_file descriptor _page_count ; 
4 8821 IF total swapped _page_count > ijle_pA.swap_data.swap_file length _in_pages THEN 
1 8822 gfpS$mtr_get_locked fde_p (ijle_p%.swap_data.swap_file_sfid, ijle p, fde_p); 
$C 8823 dmp$allocate file space (fde_p, 0, total _Sswapped_page_ count * osv$page_size - 1, sfc$no_limit, 
E2 8824 ignore aus obtained, ignore_overflow, file status); 
E2 8825 trace (jsc$ti_allocate_swap_file, 1); 
E2 8826 
E2 8827 CASE file status OF 
108 8828 = dme$fas_file_allocated = 
108 8829 ijle_p4.swap_data.swap_file_length_in_pages := total swapped _page_count ; 
108 8830 fde_pA.eoi_ byte _ address := total_swapped_page_count * osv$page_size; 
1908 8831 fde_ prA.flags.eoi_modified := TRUE; 
122 8832 
122 8833 = dmc$fas_job_mode_work_ required = 
122 8834 trace (jsc$ti_allocate_swap_file_jm, 1); 
122 8835 mtp$set_status_abnormal (’JS’, jse$swap_file not _allocated, status) ; 
13E 8836 
13E 8837 = dmc$fas_temp_reject = 
13E 8838 trace (jsc$ti_dm_transient_error, 1); 
13E 8839 mtp$set_status_abnormal (’DM’, dme$transient_error, status); 
154A 8840 
15A 8841 ELSE 
154A 8842 mtp$error_ stop (’JS - unexpected status from dmp$allocate file space’); 
117A 8843 CASEND; 
117A &844 IFEND; 
17A 8845 


117A 8846 PROCEND allocate swap _file; 


120 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 


NOS/VE js moniter mode job swapper 
ASSIGN PAGES FOR SFD 
oO 8848 
o 8849 PROCEDURE assign_pages_for_sfd 
© 8850 ( ijle_p: Ajmt$initiated_job_list_entry; 
° 8851 ijl_ordinal: jmt$ijil_ordinal; 
o 8852 direction: jst$swap_direction; 
o 8853 VAR status: syt$monitor_status) ; 
Oo 8854 
Oo 88ss5 { 
° 8sBse { This procedure assigns the pages for the swap file descriptor in job fixed of the job being 
Oo 8857 { Swapped in or out. 
o 8858 { 
° 8859 
ce) 8860 VAR 
o 8861 ajlo: jmt$ajl_ordinal, 
© 8862 jcob_p: Ajmt$job_contro}l_block, 
o 8863 ptr _to_sfd: AAcell, 
°o 8864 rma: integer, 
° 8865 sfd_cell_p: Acell, 
Oo 8866 sfd_ offset: integer, 
oO 8867 sfd_page_count: © .. osc$max_page_frames, 
° 8868 total _swapped_page_count: O .. osc$max_page_frames, 
fe) 8869 try: integer; 
ce) 8870 
° 8871 Sfd_ page count := ijle_p%.swap_data.swapped_job_entry.swap_file_descriptor_page_count; 
4 8872 total _Swapped_ page count :: ijle_p%.swap_data.swapped_ job _page_count + sfd_page_count ; 
4 8873 sfd_offset := osv$page_size * 3713 + 10000000(16) ; 
4 8874 ajlo :* ijle p*.ajl_ordinal; 
4 8875 
4 8876 IF direction = jsc$sd_out THEN 
2E 8877 jmp$assign_ajl_entry (ijle_p4.job_fixed_asid, ijl_ordinal, jmc$lock_aj1l, TRUE {must assign} 
SE 8878 status); 
SE 8879 IFEND; 
SE 888O 
SE 8881 { Allocate pages at the end JOB FIXED for the SFD. If the request is rejected because of page 
SE 8882 {table full, try several times before giving up - use a different PVA on each try. 
SE 8883 
SE 8884 try := 10; 
SE 8885 
SE 88856 REPEAT 
62 8887 sfd_offset :=: sfd_offset + osv$page_ size * 471; 
62 8888 sfd_celi_p := #ADDRESS (1, ajlo + mtc$job_fixed_ segment, sfd_offset ) ; 
62 8889 mmp$assign_page_to_monitor (sfd_celi_p, sfd_page_ count, FALSE, status); 
SE 88390 IF NOT status.normal AND ((status.condition <> mme$page_table_ full) OR (try = ©)) THEN 
BA 8891 IF direction = jsc$sd_out THEN 
BE 8892 jmp$free_ajl_entry (ijle_p, jmc$lock_aj1); 
D6 8893 IFEND; 
D& 8394 RETURN; 
Ds 8895 IFENOD; 
Ds 8896 try : = try - 1; 
D8 8837 UNTIL status.normal; 
E2 8898 
E2 8899 { Update the IJL with SFD descriptive information. Set up the swap io control bitock 
E2 8900 { with the information required for build lock rma_list. 
E2 8901 
E2 8902 ptr_to_sfd := #LOC (ijle_pA.sfd_p); 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1988-08-21 


NOS/VE js 


monitor mode job swapper 
ASSIGN PAGES FOR SFOD 


83903 
83904 
8305 
8906 
8307 
8908 
8903 
8910 
8311 


i#build_adaptable_array_ptr (1, ajlo + mtc$job_fixed_segment, sfd_offset, 
#SIZE (jst$swapped_page descriptor) * total swapped_ page _ count, Oo, 
#SIZE (jstSswapped_page_descriptor), #LOC (ptr_to_sfd)); 
i#real_memory_address (sfd_cell_p, rma); 


ijle_pA%.swap_io_control.swap_file descriptor _pfti := rma DIV osv$page_ size; 
IF direction = jsc$sd_out THEN 
{ Set up jcb with the swapped_job_entry. It is used by job recovery. 
jcb_p := #ADDRESS (1, mtc$job_fixed_segment + ajlo, 0); 
jcb_p’.swapped_job_entry :* ijle_p’%.swap_data.swapped_ job_entry; 
ijle_pA.sfd_p4%.swapped_ job_entry := ijle_p4”.swap_data.swapped job_entry; 
ijle pA.sfd_ pA.ijl_entry : = ijle_pA; 


imp$free_ajl_entry (ijle_p, jmc$lock_ajl); 
IFEND; 


mmv$reassignable page _frames.soon := mmv$reassignable_ page frames.soon + sfd page _ count ; 


PROCEND assign pages for_sfd; 
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SOGURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 


1.0 88102 1989-08-21 13:33:34 


NOS/VE js : monitor mode job swapper 
CALCULATE SFO LENGTH 
oO 8926 
Oo 8827 PROCEDURE calculate _ sfd_ length 
o 89328 ( ijle_p: Ajmt$initiated job _list_entry); 
o 893293 
o 8930 { 
o 8931 { This procedure calculates the swap file descriptor length and set the value in the IJL. 
o 8932 { 
o 89333 
Oo 8934 VAR 
o 8935 job_page_count: oO osc$max_page_frames, 
Oo 8936 sfd_p: AjstS$swap_file_ descriptor, 
oO 8937 sfd_page_count: © osc$max_page_ frames; 
© 8938 
o 8939 
ce) 8940 job _page_ count := ijle_p%.swap_data.swapped_job_page count; 
4 8941 
4 8942 { Determine number of pages to allocate for the swap file descriptor. The following algorithm makes a 
4 8943 { guess that 1 page is required, then iterates until the size is correct. 
4 8944 
4 8945 PUSH sfd_p: [0 Oo]; {used to get size of a sfd with 1 entry} 
14 8946 sfd_page_count := 1 + (#SIZE (sfd_p4) + #SIZE (jst$S$swapped_page_ descriptor) * job_page_ count - 1) DIV 
1A 8947 osv$page_ size; 
1A 8948 WHILE ({ job_page_count + sfd_ page count - 1) * #WSIZE (jst$swapped_page_ descriptor) + #SIZE (sfd_pA)) > 
48 8949 (sfd_page_count * osv$page_size) DO 
48 8950 sfd_page_ count := sfd_page_ count + 1; 
48 8951 WHILEND; 
66 8952 
66 8953 ijle_p4.swap_data.swapped_job_entry.swap_fiile descriptor page count := sfd_ page count ; 
66 8954 
66 8955 PROCEND calculate _sfd_ length; 


SOURCE LIST OF jsm$monitor _mode_job_swapper NOS/VE CYBIL/II 


1.0 89102 1989-08-21 13:33:34 


TO UPPERVALUE (mmt$job_page_ queue_index) DO 
[ job_queue_id].count; 


[job_queve_id] := 


ijle_p4.swap_data.swapped_job_page_count 


WQS/VE js : monitor mode job swapper 
CALCULATE SWAPPED PAGES 
o 8958 
© 8959 PROCEDURE [INLINE] calculate swapped _pages 
Oo 8360 ijle_p: AjmtS$initiated_job_list_entry); 
o 8961 
© 8962 VAR 
Oo 8S63 jeob_page_ count: mmt$page_ frame_index, 
oO 8964 job_queue_id: mmt$ job_page_queue_ index; 
o 8965 
° 8S66 job _ page count :=: 0; 
Oo 8967 
o 83968 FOR job_queue_id := LOWERVALUE (mmt$job_page_queue_index) 
Oo 8Sgs69 job_page_ count :: job page count + ijle_p’. job_page_ queue _ list 
ce] 8370 ijle_p4.swap_data.Sswapped_job_entry. job_page_ queue count 
° 8971 ijle_p4%.job_page queue list [job_queue_id]}.count; 
Oo 83972 FOREND ; 
o 8873 
oO 83874 ijle_p4.swap_data.swapped_job_ page count := job_page count; 
°o 8975 
o 8376 mmv$reassignable_ page_frames.swapout_io_not_initiated := 
o 8377 mmv$reassignable_page frames.swapout_io_not_initiated + 
oOo 8978 ijle_ pA. job_fixed contiguous pages; 
o 89gs79 
o 89380 PROCEND calculate swapped pages; 
o 8981 
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SOURCE LIST OF jsm$monitor mode_job_swapper NOS/VE CYBIL/II 1.60 89102 1989-08-21 13:33:34 
NOS/VE js : moniter mode job swapper 
CLAIM_PAGES FOR_SWAP_IN 
Oo 8984 
o 8985 PROCEDURE claim _pages_for_swap_in 
° 8986 ( ijl_ordinal: jmt$ijl_ordinal; 
° 8987 ijle_p: Ajmt$initiated job_list_entry; 
Oo 83988 VAR status: syt$monitor_status) ; 
° 83989 
o s8sso { 
° g9g1 { The purpose of this procedure is to claim the number of pages needed to 
fe] 8992 { swap the job in. The pages are linked in the proper queues at this time 
° 8993 { except the available modified pages are linked into the job working set 
© 8994 { queue. 
° esg9s f{ 
° 8996 
ce] 8997 VAR 
° 8998 ajl_ordinal: jmt$ajl_ordinal, 
o 8999 ast_index: mmt$ast_index, 
o $000 temp_asti: mmt$ast_index, 
° 8001 asid: ost$asid, 
o $9002 aste_p: Ammt$active_segment_tablie_entry, 
° 9003 queue: mmt$global_page_queue_ index, 
o 9004 sum_shared: integer, 
ce) soos total swapped _page_ count: © .. osc$max_page_frames, 
Oo 9006 update _ segnum_sfd_p: cybil_pointer trick; 
ce) 9007 
° 9008 status.normal := TRUE; 
4 9009 total _ Swapped_page_ count := ijle_p4%.Sswap_data.swapped job page count + 
4 9010 1jle_p%.swap_data.swapped_job_entry.swap_fiile descriptor_page_count ; 
4 9011 
4 go12 { Check if there is enough memory in the free and availbie queues to swap this job in. 
4 9013 
4 9014 IF ((total_swapped_page_count >= mmv$reassignable page _frames.now) OR 
34 9015 (total _ swapped page_count >= (mmv$reassignable_page_frames.now + mmv$reassignable page _frames.soon 
34 9016 mmv$aggressive_aging level_2))) THEN 
34 9017 
34 $018 { Raid the shared queue if there are enough pages in it to Swapin the job. 
34 $019 
34 9020 sum_shared := 0; 
34 9021 FOR queue := mmc$pq_shared first TO mmv$last_active shared queue DO 
48 9022 sum_shared := sum_shared + mmv$gpqi [queue] .pqie.count ; 
4& 9023 FOREND; 
SA 9024 IF (mmv$reassignable_ page frames.now + mmv$reassignable page_frames.soon + sum shared 
74 9025 mmv$aggressive_aging level_2) > total _swapped page count THEN 
74 $026 trace (jsc$ti_dump_shared_ queue, 1); 
74 9027 mmp$dump_shared_ queue (total_swapped_page_count); 
$2 9028 IFEND; 
$2 9029 
$2 9030 { If there is still not enough memory, RETURN bad status. 
92 9031 
$2 9032 IF (total_swapped_page_count >= mmv$reassignable_page_frames.now) OR 
AA 9033 (total_swapped_page_ count >= (mmv$reassignable_page_frames.now + 
AA 9034 mmv$reassignable_page_frames.soon - mmv$aggressive_aging level_2)) THEN 
Aa g035 trace (jsc$ti_no_memory for _swap_in, 1); 
AA 9036 mtp$set_status_ abnormal (’JS‘, jse$not_enough_mem_for_swap_in, status) ; 
AA 9037 RETURN; 
CA 9038 IFEND; 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89162 1889-08-21 13:33:34 
NOS/VE jS : monitor mode job swapper 


CLAIM_PAGES_FOR_SWAP_IN 


CA 9039 IFEND; 

CA 9040 

CA 9041 

CA 9042 { Reclaim the old job fixed ASID or assign a new one if the old one iS in use. 
CA 9043 

CA 9044 asid :* ijle_p%.job_fixed _asid; 

Ca 9045 

CA 9046 mmp$Sasti [(asid, ast_index); 

EE 9047 aste_p := Ammv$ast_p’ Last_index]; 

EE 9048 IF (jmc$dsw_job_recovery IN ijle_p4.delayed_ swapin_work) OR [(aste_pA.ijl_ordimal <> 
122 9049 trace (jsc$ti_new_job_fixed_asid, 1); 

122 9050 mmp$assign_asid (asid, temp_asti, aste_p); 

154 9051 ijle_p%.job_fixed_asid := asid; 

160 $052 ELSE 

160 $0583 trace (jsc$ti_reuse_job_fixed_ asid, 1); 

160 gs054 IF NOT aste_ pA.in_use THEN 

17A 93055 trace (jsc$ti_reuse_ job_fixed_asid_as, 1); 

17A 9056 mmp$assign_specific_asid (aste_p) ; 

194 Sos7 IFEND; 

194 soss IFEND; 

194 $059 aste_pA := mmv$initial job_fixed_ast_entry; 

1A6 S060 aste pA.ijl_ordinal :+= ijl_ordinatl; 

1A6 9061 

1A6 906062 { Assign an ajl entry to the job. 

1A6 s$o63 

1A6 9064 jmp$assign_aji_entry (asid, ijl ordinal, jmc$swapping_aji, FALSE {must assign} , ajl_ordinal, 
1D8 9065 IF NOT status.normal THEN 

1E0 9066 trace (jsc$ti_no_ajl_ord_for_swap_in, 1); 

1E0 9067 RETURN; 

1Ec SO68 IFEND; 

1EC s069 

1EC $070 IF syv$perf_keypoints_enabled.swapping keypoints THEN 

1F8 9071 kt.S :=5 ijle_pA.system_supplied_ name (16, 4); 
202 S072 #KEYPOINT (osk$performance, osk$m * Kt.f1, ptk$swapin_job_name_1); 
216 9073 #KEYPOINT (osk$performance, osk$m * ((kt.f2 * 256) + ajl_ordinal), ptk$swapin_job_name_2); 
230 9074 IFEND; 


230 9076 { Assign new page frames for the job and swap file descriptor. 


230 SO77 F 

230 sg078 mmp$c laim_pages_for_swapin (ijle_p4.swap_data.swapped_job_entry, aste_p, ijl_ordinal, 
25C 93079 ijle_p%.job_page_queve_list); 

25C 9080 assign_pages_for_sfd (ijle_p, ijl_ordinal, jsc$sd_in, status); 

26E 93081 IF NOT status.normal THEN 

278 9082 trace (jsc$ti_no_pages_for_sfd_on_si, 1); 

278 $083 mmp$free_ memory _in_job_ queues [(ijle_p4. job _page_queue_ list, TRUE, FALSE, FALSE); 
2A2 $3084 jimp$free_ ajl_entry (ijle_p, jmc$swapping_ajl); 

2B8 3085 mmp$free_asid (asid, aste_p); 

2D4 s086 mtp$set status abnormal (‘JS‘, jse$not_enough_mem_for_swap_in, status); 

2E4 93087 IFEND; 

2E&4 93088 


2E4 $089 PROCEND claim _pages_ for_swap_in; 


ijl_ordinal) THEN 


status); 
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SOURCE LIST GF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 
NOS/VE js : monitor mode job swapper 
COMPLETE SWAPIN 
© 9g3092 , 
o $033 PROCEDURE complete swapin 
o 9094 { ijl_ordinal: jmt$ijl_ordinal; 
o 9095 ijle_p: Ajmt$init iated_job_list entry; 
oO 9g036 available modified page _ count: oO osc$max_page_ frames) ; 
o $097 
o 6sogs { 
° gos9 { The purpose of this procedure is to perform the tasks to complete the swapin of a job after 
° 9100 { the memory manager tables have been restored. This procedure sets the proper swap status and 
° 9101 { relinks the job into the null swapping queue. 
o $102 { 
© $103 
ce) 9104 VAR 
o 9105 jcb_p: Ajmt$job_control_ block; 
3° 9106 
° 9107 
ce) 9108 { Move pages back to the available modified queue if they betong there. 
0 9108 
ce) 9110 IF available modified page count > © THEN 
& 9111 move_am_to_am (ijie_p, available modified page count) j; 
20 9112 IFENO; 
20 $113 
20 9114 jcb_p := #ADDRESS (1, mtc$job_fixed_ segment + ijle_p%.ajl_ordinal, 0); 
20 9115 jcb_p%.mext cyclic_aging time := #FREE RUNNING CLOCK (0) + jcb_pA.next cyclic_aging_ time; 
3E $116 
3E $117 restart_idiled_ tasks (ijl_ordinal, ijle_p); 
1A8 9118 
1A8 9119 IF (availabie_modified_page_count >» ©) THEN 
1AC $120 mmp$replenish_ free _ queues (0); 
1BC 9121 IFEND; 
1BC 9122 
1BC $123 PROCEND complete _ swapin; 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 
NOS/VE js : monitor mode job swapper "i 
FLUSH_AM_PAGES_ TO_DISK 
° $125 
Oo %g126 PROCEDURE flush_am_pages_to_disk 
oO $127 { ijl_ordinal: jmt$ijl_ordinatl; 
oO $128 ijle_p: Ajmt$initiated_job_list_entry); 
° 91238 
° 9130 { This prcedure will initiate I0 to disk to write out the pages in the available modified 
ce) 9131 { queue that belong to the specified job. If 10 fails for any reason the page will be moved 
oO 9132 { to the job working set. 
° $133 
° 9134 VAR 
o 93135 ajlo: jmt$ajl_ordinal, 
Oo $136 fde_p: gftS$locked_file_desc_entry_p, 
o $137 io_id: mmt$io_identifier, 
te] $138 modified pages removed: oO osc$max_page_ frames, 
o $1398 next pfti: mmt$page_ frame_index, 
Oo 9140 pfti: mmt$page_frame_index, 
oO 9141 status: syt$monitor_ status, 
o 9142 write status: mmt$write page to_disk_ status; 
° 9143 
oO 9144 #KEYPOINT (osk$entry, ©, jsk$flush_am_pages_to_disk); 
& $145 
8 9146 { Set up an AJL ordinal for use by mmp$write page_to_disk. 
8 9147 
8 3148 jmp$assign_ajl_entry (ijle_p4A.job_fixed_asid, ijl_ordinal, jmc$lock_aj1, TRUE {must assign} , ajlo, 
3E 9149 status); 
3E $150 modified pages _removed := 0; 
3E 9151 pfti := mmv$gpqi [mmc$pq_avail_modified] .pqie. link. bkw; 
3E 9152 
3E 9153 io _id.specified := FALSE; 
3E 9154 
3E 9155 /scan_avai labie_modified queue/ 
3E $156 WHILE pfti <> © DO 
56 $157 next _pfti := mmv$pft_ pA [pFfti]. link. bkw; 
56 9158 IF (mmv$pft_pA [pfti].aste_pA.ijl_ordinal = ijl_ordinal) AND mmv$pt_pA [mmv$pft_p’ [pfti].pti].m THEN 
A2 $159 gfp$mtr_get_locked fde_p (mmv$pft_pA [pfti].aste_pA.sfid, ijle_p, fde_p); 
124 9160 mmp$write page to_disk (fde_p, pfti, ioc$write page, io_id, FALSE, write status) ; 
150 9161 trace (jsc$ti_flush_am_pc, 1); 
150 9162 IF mmv$pt_pA [mmv$pft_pA [pfti].pti].m THEN 
18E 9163 
18E $164 { Write status <> ws_ok. 
18E 9165 
18E 9166 mmp$relink page frame (pfti, mmc$pq_job_working_ set); 
1A6 9167 modified _pages_removed := modified pages removed + 1; 
1A6 9168 trace (jsc$ti_flush_am_relink, 1); 
1B2 $169 IFEND; 
1B2 9170 IFEND; 
1B2 9171 pfti := next pfti; 
1B2 9172 WHILEND /scan_avai lable modified queue/; 
1BA 9173 
1BA 9174 imp$free_ajl_entry (ijie_p, jmc$lock_ajl); 
102 9175 
1D2 S176 IF modified pages removed <> ©0© THEN 
iD&é 9177 ijle_p4.swap_data.swapped_job_entry.availablie modified page count := 
1D6 $178 ijle pA.swap_data.swapped_ job_entry.availabie modified page count + modified pages _ removed; 
1D& 93179 mmv$reassignable_page_ frames.swapout_io_not initiated := 
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PROCEDURE free swapped_jobs_mm_resources 
{ ijle_p: AjmtS$initiated_job_list_entry; 
ijJ_ordinal: jmtS$ijl_ordinal; 
last_swap_status: jmt$ijl_swap_status) ; 


The purpose of this procedure is to free the memory manager resources 
of each page in memory of the job being swapped out. The swap file 
descriptor is freed if it has not already been. 


NOTE: 
Tast_swap_status swap status reason/routine 

jmc$iss_swapin_io_complete imc$iss_swapin_resource_ claimed process ico_error_on_swapin 
imc$iss_swapin_io_complete process _io_error_on_swapin 
imc$iss_swapin_io_complete direction change 
imc$iss_swapin_io_complete page table full 
imc$iss_ swapin_io_complete bad swap file data 

jmcS$iss_swapout_io_complete jmc$iss_free_ swapped_memory advance _ swap 

jimc$iss_swapped_io_complete imc$iss_ free swapped_ memory advance_swap 


#KEYPOINT (osk$entry, ©, jsk$free_ swapped_jobs_mm_resour ); 
The Swap file descriptor has not been freed if last _swap_status is jmc$iss_swapin_io_complete. 


IF ijle_p%.sfd_p <> NIL THEN 
free _swap_file_ descriptor (ijle_p, ijl_ordinal); 
trace (jsc$ti_sfd_freed, 1); 

IFEND ; 


IF ijle_p4A.swap_status >: jmc$iss_swapin_resource claimed THEN 
Swapin aborted. Free the pages we claimed. 


mmp$free_ memory _in_job_queues (ijle_p%.job_page_queue_ list, TRUE {increment now} , FALSE 
{decrement soon} , FALSE); 
trace (jsc$ti_free_ memory _si_aborted, 1); 
ELSEIF last _swap_status = jmc$iss_swapped_io_complete THEN 


NOW and SOON were updated when we went from OC to $2. 


mmp$free memory in _job_queues (ijle_p4.job_page_queue_list, FALSE {increment now} , FALSE 
{decrement soon} , FALSE); 
trace (jsc$ti_free_memory, 1); 
ELSE {last _swap_status = jmc$iss_swapout_io_complete} 


Going directly from OC to FM to S. Update NOW and SOON. 
mmp$free_ memory _in_job_queues (ijle_pA.job_page queue list, TRUE {increment now} , 
TRUE {decrement soon}, FALSE); 
trace (jsc$ti_free_memory, 1); 
IFEND; 


#KEYPOINT (osk$exit, Oo, jsk$free_swapped_jobs_mm_resour ); 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 
NOS/VE js : monitor mode job swapper 
FLUSH _AM_PAGES_TO_DISK 
1D6 9180 mmv$reassignable_page_ frames.swapout_io_not_initiated - ijle_p4.swap_data.swapped_job_page_count + 
106 $181 ijle_pA.job_fixed contiguous pages; 
106 9182 calculate _ swapped pages (ijle_p); 
238 9183 IFEND; 
234 9184 
238 9185 IF ijle_p4.statistics.ready task_count > © THEN 
242 9186 trace (jsc$ti_flush_am_ready, 1); 
250 9187 IFEND; 
250 9188 
250 $3189 #KEYPOINT (osk$exit, 0, jsk$flush_am_pages_to_disk) ; 
254 $190 
254 9191 PROCEND filush_am_pages_to_disk; 
fe) 91392 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 


129 


130 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 PAGE 
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9250 
$251 


PROCEND free swapped_jobs_mm_resources; 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 898102 1989-08-21 ; 13:33:34 PAGE 
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PROCEDURE [INLINE] free_swap_file_ descriptor 
( ijle_p: Ajmt$initiated_job_list_entry; 
ijl_ordinal: jmt$ijil_ordinal); 


The purpose of this procedure is to free the swap file descriptor from monitor‘’s address 
space. 


VAR 
ajlo: jmtS$ajl_ordinal, 
need _ajil: boolean, 
status: syt$monitor_ status, 
update segnum_sfd_ op: cybil_pointer_ trick; 


need_ajl := (ijle_pA.ajl_ordinal = jmce$null_ajil_ordinal); 
IF need_aj1 THEN 
imp$assign_ajl_entry (ijle_p4.job_fixed_asid, ijl_ordinal, jmc$lock_aj1l, TRUE {must assign} 
status); 
update segnum_sfd_ p.sfd_ p := ijle_pA.sfd_p; 
update segnum_sfd_p.pva.seg := ajlo + mtc$job_fixed segment ; 
ijle_p%.sfd_p := update _segnum_sfd_p.sfd_p; 
IFEND; 


; ajilo, 


mmp$delete page _from_monitor (ijle_pA.sfd_p, ijle_pA.swap_data.swapped_job_entry. 
swap _file_descriptor_page_ count, status); 


IF need_ajl THEN 
jmp$free_ajil_entry (ijle_p, jmc$lock_aj1); 
IFEND; 


IF NOT status.normal THEN 
mtp$error stop (‘JS - unable to free SFD‘); 
IFEND; 


ijle_pA.sfd_p := NIL; 


Decrement reassignable page frames SOON. NOW was incremented when the Swap file descriptor 
pages were deleted from monitor’s address space above. 


mmv$reassignable_ page _frames.soon := mmv$reassignable_page_frames.soon - 
ijle_pA.swap_data.swapped_job_entry.swap_file_ descriptor _page_count; 


Update the MAP _PURGE TIMESTAMP. Pages assigned to the SFD were just deleted. Before the job next swaps 
out or in and attempts to reference the SFD, the page map must be purged. The timestamp is used to 
remember the time the SFD was freed. 

ijle_pA.sfd_ purge timestamp := #FREE RUNNING CLOCK (0); 


PROCEND free swap_file descriptor ; 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


NOS/VE js : monitor mode job swapper 
JOB_MODE SWAPOUT 
o $305 
© S306 { PURPOSE: 
.e) 9307 { This procedure processes the swap_job_out or the special _ swapout monitor swapping requests. 
© 93308 { DESIGN: 
° g309 { The caller must have the PTL lock set so that entry status is not changing through the task switch/ 
° 9310 { monitor swap path, and because the entry status change done by this procedure will cause the swapped 
o 3311 { job count to change. 
° 9312 { NOTE: The caller has verified that the job’s entry status is either in memory or swapin in progress. 
Oo $313 
Oo $314 PROCEDURE [INLINE] job_mode_swapout 
° 9315 ( ijl_ordinal: jmt$ijl_ordinal; 
oO $316 ijle_p: Ajmt$initiated_job_list_entry; 
o $317 Swap_reason: jmt$swapout reasons; 
ce) $318 VAR poll swapping: boolean; 
Oo 9319 VAR status: syt$monitor_ status) ; 
© 9320 
Oo $321 VAR 
° $322 job_page_ count: mmt$page_frame_index, 
o 9323 old_entry_ status: jmt$ijl_entry_status, 
oO 9324 queue_id: mmt$job_page_ queue_ index; 
© 9325 
© $326 old_entry status := ijle_p%.entry_ status; 
oO $327 
oO 9328 IF swap_reason = jmc$sr_operator_ request THEN 
o $9329 jmp$change_ijl_entry_ status (ijle_p, jmc$ies operator. force_out}; 
© $330 ELSEIF swap_reason = jmc$sr_job_damaged THEN 
o 9331 jmp$change_ijl_entry_ status (ijle_p, jmcS$ies_ job_damaged) ; 
Oo 93332 ELSE 
oO $333 IF ijle_ p%.statistics.ready_task_count > O THEN 
oO $334 jmp$set_entry status _to_rt (ijl_ordinal, ijle_p); 
° 9335 ELSE 
© 9336 jmp$change_ijl_entry_ status (ijle_p, jmc$ies, job swapped) ; 
Oo $337 IFEND ; 
o 9338 IFEND; 
o $339 
o $340 IF old_entry_status = jmcS$ies_ swapin_in_progress THEN 
o 9341 
ce) $342 { If the swap status is an end state, the job must have been made a sSwapin candidate and relinked to the 
© $343 { swapping queue just before this monitor request got the PTL lock. The job needs to be relinked back 
° 9344 { to the proper swap queue. Otherwise, the job must be in a blocked state (waiting for 1/0, etc.). 
© $345 { Leave the job in the swapping queue. Advance_swap will advance it to tne next end state. 
oO 9346 
oO 3347 IF ijle_pA.swap_status = jmc$iss_swapped_io_cannot_inmit THEN 
o $348 jsp$relink_swap_queve (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_cannot_init) ; 
° 93493 ELSEIF ijle_p4%.swap_status = jmc$iss_swapped_io_complete THEN 
Oo 9350 jisp$relink_swap_queve (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_ completed) ; 
o 9351 ELSEIF ijle_ p%.swap_status = jmc$iss_Swapout complete THEN 
o 9352 isp$relink swap _queve (ijl_ordinal, ijle_p, jsc$isqi_swapped_ out); 
oO $353 IFEND ; 
Oo 9354 
oO $355 ELSE 
Oo 9356 
Oo 9357 { Old_entry status = jmc$ies_in_memory, so swap the job out. 
oO 3358 
o 9358 sched_trace (jsc$sc_swapout_job_mode, ijl_ordinat) ; 
SOURCE LIST OF jsm$monitor_mode_job_Sswapper NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 
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tTjle_ pA. job_scheduler_data.swapout reason :* swap reason; 
ijle_p4. job _ scheduler _data. job_swap_counmts.job_mode :5 
ijle_pA.job_scheduler data.job swap counts. job_mode + 1; 


IF ijle_p%.swap_status = jmc$iss_executing THEN 
trace (jsc$ti_swapout_from_job_mode, 1); 
IF syv$perf_keypoints enabied.swapping keypoints THEN 
#KEYPOINT (osk$performance, osk$m * ijle_ pA.ajl_ordinal, ptk$aji_for_swap_out); 


. 
a) 


PAGE 


PAGE 


IFEND; 
jsp$relink_swap_ queue (ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 
{ Set close approximation of swapped job page count for job mode job scheduler. The count is also 
{ used for the service class statistics. 
job_page_count := 0; 
FOR queue_id := LOWERVALUE (mmt$ job_page_queue_index) TO UPPERVALUE (mmt$job_page_ queue index) DO 
job_page_count := job_page_count + ijle_pA.job_page_queue_ list [queue_id].count; 
FOREND; 
ijle_pA.swap_data.swapped_ job page count := job_page_ count; 
ijle_p4.swap_io_control.spd_index := LOWERVALUE (mmt$page_frame_index) ; 
{ Swap_data.timestamp is still tne time when the job completed swapin. Swapin to swapout is residence time. 
ijle_p%.swap_data.swapout_timestamp := #FREE_RUNNING_ CLOCK (0); 
tmp$set_lock (jmv$service_class_ stats_lock) ; 
jimv$service_ciasses [ijle_p’.job_scheduler_data.service_cilass]4.statistics.swap_stats. 
residence _ time := jmv$service_ciasses [ijle_p4.job_scheduler_data.service_class]A.statistics. 
Swap_stats.residence time + (ijle_p4.swap_data.swapout_timestamp - ijle_ pA.swap_data.timestamp) ; 
jimv$service cilasses [ijle_p%.job_ scheduler _data.service_class]4.statistics.swap_stats.swapped_ pages 
ijimv$service_ classes [ijle_p4. job_scheduler data.service_ciass]4.statistics.swap_stats. 
Swapped pages + ijle_p’.Sswap_data,.swapped job _page_count ; 
tmp$cilear_lock (jmv$service_class_stats_lock); 
tmp$idie_tasks_in_job (ijle_p4.ajl_ordinal, ijle_ pA. job_scheduler_data.swapout_reason, status); 
IF status.normal THEN 
ijle_pA.delayed_ swapin_work := $jmt$delayed_swapin_work [1]; 
{ Dont clear inhibit - let it be cleared by either server job recovery 
{ or by the job when it detects that the server is not longer inactive. 


ijle_pA.terminate_access_ work := $dft$mainframe_set []; 
advance_swap_state (ijle_p, jmc$iss_job_idie tasks complete} ; 
set_swapping_event (jsc$se_immediate) ; 
poll swapping := FALSE; 
ELSEIF status.condition = jse$unable_to_idie_all_tasks THEN 
status.neormal :: TRUE; 
advance_swap_state (ijle_p, jmc$iss_idie_tasks_initiated) ; 
ELSE 
mtp$error_stop (‘JS - UNEXPECTED CONDITION FROM IDLE TASKS’); 
IFEND; 


21F debug = TRUE THEN 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 


1.0 89102 1989-08-21 


NOS/VE js : monitor mode job swapper 
JOB MODE SWAPOUT 
9415 IF syv$allow_jr_ test THEN 
$416 IF syc$tjr_mtr_mvamjws IN syv$test_jr system THEN 
9417 mtp$error stop (‘’JOB RECOVERY TEST’); 
9418 IFEND ; 
94198 IFEND; 
ce) $420 ?IFEND 
° 9421 IFEND; 
.°) $422 IFEND; 
° $423 
oO $424 PROCEND job_mode_swapout ; 
° 9425 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 


NOS/VE js : monitor mode job Swapper 

JOB SWAPPING _I0 
Oo 9428 
© 94289 { PURPOSE: 
© 9g9430 { This procedure performs the io necessary to 
oO 9431 
ce $432 PROCEDURE job _ Swapping_io 
Oo $433 ( ijl_ordinal: jmt$ijl_ordinal; 
1°) 9434 ijle _p: Ajmt$initiated_job_lTist_entry; 
oO 9435 sfid: dmt$system_file_id; 
Oo $436 io _ function: iot$io_ function; 
ce] $437 total swapped page count: oO osc$max_ 
Oo $438 VAR io _control_information: jst$io_control_ 
© $439 VAR status: syt$monitor_ status) ; 
oO 9440 
ce] 9441 
Oo $442 VAR 
Oo 9443 ajlo: jmt$ajl_ordinal, 
° 9444 buffer descriptor: mmt$buffer descriptor, 
Oo $445 fde_p: gft$file desc_entry p, 
Oo 98446 io_id: mmt$io_identifier, 
oO 9447 jcb_p: Ajmt$job_control_ block, 
oO $448 page _ count: mmt$page_frame_index, 
fe) $449 page _ status: gft$page_status, 
o 9s$450 update _segnum_sfd_p: cybil_pointer_trick; 
o 9451 
© $452 
o 945853 io _id.specified := FALSE; 
& $454 io_id.ijl_ordinal :: ijl_ordinal; 
4 94655 
4 $456 IF io _ function = ioc$swap_out THEN 
18 9457 


being swapped. Update the sfd_p 


1.0 89102 1989-08-21 


swap a job in or 


out. 


page frames; 
information; 


ijl_ordinal, jmc$lock_ajl, 


ajlio + mtc$job_fixed segment ; 


pva.seg, 0); 


ijle_p”.swap_data.swapped_job_entry; 


mmc$bd_ job swapping io; 


fde_p); 


- io _control_information.spd_ index) ; 


18 9460 

18 9461 imp$assign_ajil_entry (ijle_pA”.job_fixed_asid, 
4A 9462 status); 

4A 9463 update _ segnum_sfd_p.sfd_p := ijle_pA.sfd_p; 
54 $464 update segnum_sSfd_p.pva.seg := 

54 93465 ijle_pA.sfd_p :* update segnum_sfd_p.sfd_p; 
72 9466 ijle_p%.sfd_pA.ijl_entry := ijle pA; 

8C 9467 jicb_p := #ADDRESS (1, update_segnum_sfd_p. 

gc 9468 jcb_p4.swapped_ job_entry :=: 

AC 9469 IFEND; 

AC 94706 

Ac 9471 { Issue the necessary I0 requests to swap job out. 
AC 9472 

AC $473 buffer descriptor .buffer descriptor type := 

AC 9474 buffer descriptor.ijl_ordinal := ijl ordinal; 
Ac 9475 

AC 9476 /initiate_swap_io/ 

AC 9477 BEGIN 

Ac 9478 gfp$mtr get locked _fde p (sfid, ijie_p, 

130 $&79 REPEAT 

130 93480 page_count := (total _swapped_page_ count 

130 9481 IF page_count > fde_pA.allocation_unit_size DIV osv$page size THEN 
14E 9482 page _ count :=: 


fde_pA.allocation_unit_ size DIV osv$page_size; 


TRUE {must assign} 


13:33:34 


13:33:34 


Add a temporary segment table entry to monitor’s segment table for the job fixed segment of the job 
in the IJltL entry too. 


, ajilo, 


PAGE 


PAGE 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


NOS/VE js : 
JOB SWAPPING 10 


monitor mode job swapper 


152 9483 IFEND; 
152 9484 
182 9485 buffer descriptor .page count := page _ count; 
i152 9486 iop$pager_io (fde_p, io_control_information.spd_index * osv$page_size, buffer descriptor, 
182 9487 page_count * osv$page_size, io_function, io_id, status); 
192 9488 IF NOT status.normal THEN 
184 9489 trace (jsc$ti_pager_io_error, 1); 
194 9490 EXIT /initiate_swap_io/; 
TAC 9491 IFEND; 
TAC $492 UNTIL io control _information.spd_index >=: total swapped page count ; 
1B4 9493 END /initiate_swap_io/; 
1B4 9494 
1B4 9495 IF io_function = ioc$swap_out THEN 
1BA 9496 jimp$free_ajl_entry (ijle_p, jmc$lock_aji); 
1D2 9497 IFEND; 
1D2 9498 
1D2 9499 { Both callers of job _ swapping io check only for condition = ioe$unit_disabled. All other ‘bad’ 
102 9500 { statuses are assumed to be a transient error--the job is advanced to a wait_io_init state; 
1D2 9501 { swapper will try to initiate the io again shortly. 
1D2 9502 
1D2 9503 IF NOT status.normal THEN 
1D& 9504 IF status.condition = ioe$unit_disabled THEN 
1EA g505 
TEA 9506 { Reset spd_index--if io is initiated again the io will start at the beginning. 
1EA 9507 
1EA 9508 ijle_p%.swap_io_control.spd_index := LOWERVALUE (mmt$page_frame_index) ; 
1EA 9509 ijle_ p%.Swap_data.swapping _io_error :: ioc$unrecovered_error_unit_ down; 
1EQ 9510 IF ijle_ pA.active_io_page_ count >» © THEN 
FE 9511 status.normal := TRUE; 
204 9512 IFEND; 
204 9513 IFEND; 
204 9514 IFEND; 
204 9515 
204 9516 IF status.normal THEN 
20C 93517 ijle_pA.nmotify swapper_ when _io_compiete := TRUE; 
212 9518 IFEND ; 
212 9519 
212 9520 PROCEND job_swapping_io; 
e 
SOURCE LIST OF jsm$monitor _mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE js monitor mode job swapper 
MOVE AM_TO_AM 
o 9523 
oO 9524 PROCEDURE move_am_to_am 
o $525 ( ijle_p: AjmtS$initiated _job_list_entry; 
oO $526 available _modified_page_count: © .. osc$max_page_frames) ; 
oO 93527 
o $3528 { 
° gs529 { The purpose of this procedure is to move pages back to the available modified 
ce] $530 { queue that belong to specified job. This procedure is used if a Swapout request is aborted. 
© 9531 { 
Oo 9§532 
° $533 VAR 
oO 9534 pfti: mmt$page_frame_index, 
.*] $535 i: integer ; 
° $536 
oO 9537 
Oo $538 trace (jsc$ti_move_am_back _to_am, 1); 
4 9539 trace (jsc$ti_move_am_back_to_am_pc, available modified page_count); 
4 95840 pfti :2 ijle_p4.job_page_queue_list [mmc$pq_job_working set]. link. fwd; 
4 9541 WHILE (pfti <> ©) AND (NOT mmv$pt_pA [mmv$pft_pA [pfti].ptil,.v) AND 
68 9542 (mmv$pft pA [pfti].locked_page = mmc$1p_not_ilocked) DO 
68 9543 mmp$relink_page_ frame (pfti, mmc$pq_avail_ modified) ; 
7C 93544 pfti :5 ijle_p”.job_page_queue_list [mmc$pq_job_working set] .1ink. fwd; 
7C 9545 WHILEND; 
BE 9546 
BE 9547 ijle_ pA.swap_data.swapped_ job_entry.available_ modified page count := 0; 
BE $548 
BE $549 PROCEND move_am_to_am; 


PAGE 


PAGE 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1. 


© 89162 1989-08-21 13:33:34 


NOS/VE js : monitor mode job swapper 
PROCESS 10 ERROR_ON_SWAPIN 
Oo 9551 
oO $552 PROCEDURE process _io_error_on_swapin 
4 9553 ( ijl_ordinal: jmt$iji_ordinal,; 
4 93554 ijie_p: Ajmt$initiated_job_list_entry); 
4 9555 : 
4 9556 Id completed abnormally, free resources, put the job in swapped-out state and tell the scheduler. 
4 9557 
4 s5s58 free swapped jobs _mm_resources (ijle_p, ijl_ordinal, jmc$iss_swapin_io_compilete) ; 
18 9559 advance_swap_state (ijle_p, jmc$iss_swapout_complete) ; 
2A 9560 jisp$relink_swap_queue [(ijl_ordinal, ijle_p, jsc$isqi_swapped_ out); 
46 9561 jimp$recognize_ job dead (iji_ordinal) ; 
56 9562 imp$free_ ajl_entry (ijle_p, jmc$swapping_ajl); 
6C 93563 
6C s564 PROCEND process_jio_error_on_swapin; 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE js : monitor mode job swapper 
PROCESS I0_ERROR_ON_SWAPOUT 
Oo S566 
Oo 9567 PROCEDURE process_io_error_on swapout 
4 9568 { ijl_ordinal: jmt$ijl_ordinal; 
4 8569 ijle_p: Ajmt$initiated_job_list_entry; 
4 93570 VAR set_polling_ event: boolean) ; 
4 $571 
4 9572 advance_swap_state [(ijle_ op, jmc$iss_ swapped _io_cannot_init); 
18 9573 mmv$reassignable_page_frames.soon 72 mmv$reassignable_page_frames.soon - 
18 9574 1jle_p%.swap_data.swapped_ job_page count + ijle_pA.job_fixed contiguous pages; 
18 9575 mmv$reassignable_ page frames.swapout_io_cannot_initiate := 
18 9576 mmv$Sreassignable_page_frames.swapout_io_cannot_initiate + ijle_p%.swap_data.swapped_ job page count 
18 9S77 ijle_ pA. job_fixed_ contiguous pages; 
18 9578 isp$relink swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_cannot_init); 
58 3579 free _ swap_file_ descriptor (ijle_p, ijl_ordinal); 
154 9580 
154 9581 Recheck swap direction before returning to prevent timing problems with a task of the job going ready. 
154 9582 
154 9583 IF ijle_pA.entry_status < jmc$ies_ Swapped_ out THEN 
162 9584 isp$relink_swap_queve (ijl_ordinal, ijle_p, jsc$isqi_swapping); 
17¢ 06. $885 set polling event := TRUE; 
182 $586 ELSE 
182 93587 imp$activate_job_mode_swapper ; 
184 9588 IFEND; 
18A 95898 
184 9886 PROCEND process _io_error _on_swapout ; 
o 93591 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 8910602 1989-08-21 13:33:34 


NOS/VE js monitor mode job swapper 
RECLAIM_IO_ERROR_ PAGES 
o 9583 
o 9594 PROCEDURE recilaim_io_error_pages 
o 9595 ( ijl_ordinal: jmt$ijl_ordinal; 
ce) 9596 ijle_p: Ajmt$initiated_job_list_entry); 
o 9597 
o 9598 VAR 
ce) 9s99 boffset: integer, 
° 9600 eoffset: integer, 
o $3601 fde_p: gftS$file_desc_entry p, 
oO $602 next pfti: mmt$page frame_index, 
Oo $603 pfte_p: Ammt$page_frame_table_entry, 
oO 9604 pfti: mmt$page_ frame_index, 
o 93605 status: syt$monitor_status, 
© 9606 tu_pfte_p: Ammt$page_ frame_table_entry, 
Oo $607 tu_pfti: mmt$page_frame_index; 
° s608 
° $609 
oOo 9610 pfti := mmv$gpqi [mmc$pq_swapped_io_error].pqie. link. bkw; 
4 9611 
4 9612 WHILE pfti <> © DO 
10 9613 pfte_p := Ammv$pft_pA [pftil; 
10 $614 next pfti := pfte_ pA. link. bDkw; 
10 $615 IF (pfte_pr.aste_ pA. ijl_ordinal = iji_ordinal) THEN 
42 9616 trace (jsc$ti_riop_relinked, 1); 
42 9617 mmp$relink_ page_frame (pfti, mmc$pq_job_io_error); 
68 9618 
68 9619 { Reset the modified bit for all pages in this TU if memory was freed. If the io error 
68 9620 { occurred after the job was in the JC state and there was a page in the JWS or Job I0 
68 9621 { error queue in the write request (due to multiple page write), the page was not moved 
68 9622 { to an error queue and the modified bit is no longer set. Untock rma list resets the 
68 9623 { modified bit while processing the error but it is lost if memory is freed. 
68 9624 
68 9625 IF ijle_ pA.last_swap_status > jmc$iss_swapped_io_complete {S2} THEN 
74 9626 trace (jsc$ti_riop_mem_freed, 1); 
74 9627 gfp$mtr_get_locked _fde_p (pfte_pA.aste pA.sfid, ijle_p, fde_p); 
108 93628 boffset = pfte pA.sva.offset DIV fde pA.allocation_unit size * fde_ pA.allocation_unit_size; 
108 9629 eoffset > boffset + fde_ pr.allocation_unit_ size; 
108 93630 tu_pfti > pfte_ pA.aste pA.pft_ link. fwd; 
108 $631 
108 9632 WHILE tu_pfti <> © DO 
12C 8 69$633 tu _pfte_p := AmmvS$pft_pA [tu_pftil]; 
12C $634 IF ({tu_pfte_p4.sva.offset >= boffset) AND (tu_pfte_pA.sva.offset < eoffset) AND 
164 $635 (tu_pfte p%.queue_id >= mmc$pq_job_base) THEN : 
164 9636 trace (jsc$ti_riop_m_bit_reset, 1); 
164 9637 mmv$pt_ pA [tu_pfte_ pA. pti] .m := TRUE; 
186 9638 IFEND; 
186 9639 tu_pfti := mmv$pft_pA [tu_pfti].segment_link. fwd; 
186 9640 WHILEND ; 
146 9641 IFEND; 
1AE 9642 
1A6 9643 { If tne io error occured on an initial write, reset the fau state. 
1A6 $644 
146 93645 IF (pfte_p%.io_error = jioc$error_on_init) OR (pfte_p%.io_error = ioc$unit_down_on_init) THEN 
1B6 9646 trace (jsc$ti_riop_inmit, 1); 
1B6 9647 amp$set_fau_state (fde_p, pfte pA.sva.offset, status); 
SGURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1988-08-21 13:33:34 
MOS/VE js monitor mode job swapper 
RECLAIM_IO_ERROR_PAGES 
1EA 9648 IFEND; 
1EA $649 
1EA 39650 IFEND; 
1EA 9651 pfti := next _pfti; 
1EH 9652 WHILEND; 
1F2 9653 
1F2 9654 PROCEND recilaim_io_error_ pages; 
o 939655 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 


1.9 89102 


1989-08-21 13:33:34 


NOS/VE js : monitor mode job swapper 
RECOVER JOB DM_TABLES 
Oo 9657 
Oo 93658 PROCEDURE recover _job_dm_tablies 
o $659 ( ijle_p: AjmtS$initiated_job_list_entry; 
Oo 93660 ijl_ordinal: jmt$ijl_ordinal; 
o $661 System_job_monitor_sdtx_p: Ammt$segment_ descriptor _tabie_ex); 
oO $3662 
o 9663 { 
0 9664 { This procedure is called to update job information if the swapin is the FIRST swapin of the job 
fe] gse6s6s f that has occurred since a system recovery. This procedure does the following: 
fe) gse6e66 f reset some info in the SDTX dealing with locked pages/segments. 
te) g667 { modifies the SFIDs in the SDTXs of each task to show the segment is waiting for recovery. 
° 3668 { sets the dispatching priority in the XCB to the system job priority. 
oO 9669 { clears the read/write count in the FDE for each job file. 
Oo gs670 { 
oO 9671 
Oo 9672 VAR 
o 9673 sdt_p: mmt$max_sdt_p, 
o 9674 sdtx_p: mmt$max_sdtx_p, 
Oo 9675 segment number: ost$segment, 
Oo $676 sfid: gftS$system_file_identifier, 
Oo 9677 status: syt$monitor status, 
o 9678 System_fde_p: gft$file_desc_entry_p, 
o 9679 System_ijle_p: AjmtS$initiated job_list_entry, 
o 9680 xcb_p: Aost$execut ion _control_ block, 
o 9681 xch state: tmt$find_next_xcb_state; 
oO 9682 
o 9683 
© 9684 imp$get_ijle_p (jmv$system_ijl_ordinal, system_ijle_p); 
4 9685 
4 $686 tmp$find_ next xcb (tmc$fnx_ swapping job, ijle_p, ijl_ordinal, xcecb_state, xcb_p); 
58 9687 
58 9688 WHILE xcb p <> NIL DO 
6C 93689 
6c 3690 tmp$set monitor flag (xcb_pA.global_task_id, syc$mf_cause_ job_recovery, status); 
90 $3691 IF NOT status.normal THEN 
98 9692 mtp$error_ stop (’JS - cant set job recovery flag’); 
B& 9693 IFEND; 
B& 93694 
B8 9695 xcbh_pA.keypoint_enable :=: FALSE; 
B&8 9696 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 
B8 9697 FOR segment _mumber :=: © TO xcb_pA.xp.segment_table_ length DO 
102 9698 IF sdt_pA.st [segment number] .ste.v1l <> esc$vl_invalid_entry THEN 
116 9699 sdtx_p4.sdtx_table [segment_number].assign_active := osc$max_segment_length; 
116 93700 sdtx_p4.sdtx_table [segment_number].segment_lock := mmc$1ss_none; 
116 $701 
116 9702 { If the segment is a template segment (open_validating ring is 0), copy the sfid from the system job 
116 $703 { monitor. Otherwise, if the segment is for a permanent file, mark the file as waiting for recovery. 
116 $704 
116 $705 IF sdtx_p4.sdtx_table [segment_number].open_validating ring number = 0 THEN 
138 9706 sdtx_p4.sdtx_table [segment _number].sfid Ssystem_job_monitor sdtx_ pA. 
148 93707 sdtx_table [segment number] .sfid; 
148 9708 ELSEIF sdtx_p%.sdtx_ tabie [segment _number].sfid.residence = gfc$tr_system THEN 
150 93709 sdtx_p%.sdtx_table [segment_number].sfid.residence := gfc$tr_system_wait_recovery; 
156 9710 IFEND ; 
156 9711 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 


NOS/VE js : monitor mode job swapper 
RECOVER_JOB_DM_TABLES 


1.0 881062 


[segment_number ].shadow_info.shadow_segment_kind <> mmc$ssk_none) 


1889-908-21 13:33:34 


AND 


(sdtx_pA.sdtx_table [segment number ].shadow_info.shadow_sfid. 


info.shadow_sfid.residence := 


156 9712 IF (sdtx_pA.sdtx_tablie 

174 9713 (sdtx_pA.sdtx_table [segment_number ].shadow_info.shadow_segment_kind <> 
174 9714 mmc$ssk_segment_number) AND 

17h $715 residence = gfc$tr_system) THEN 

17Q S716 sdtx_pA.sdtx_table [segment_number ] . shadow_ 

180 93717 gfc$tr_system_wait_recovery; 

180 93718 IFEND; 

180 93719 IFEND; 

180 9720 FOREND ; 

184 $721 

184 9722 xcbh pA.dispatching priority := jme$priority system_job; 

184 93723 2 

184 9724 tmp$find next _xcb (tmc$fnx_ continue, NIL, jmv$null_ijl_ordinal, xcb_state, xcbh_p); 
1BE 9725 

1BE 9726 WHILEND ; 

1D2 8727 

102 $728 dmp$recover job _dm_tables (ijle_p); 

1E2 9729 

1E2 93730 PROCEND recover _job_dm_ tables; 
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SOURCE LIST OF jsm$monitor_mode_j9ob_swapper NOS/VE CYBIL/II 1.0 891062 
NOS/VE js monitor mode job swapper 


RELINK_SWAP_QUEUE 


o $734 

o 9735 PROCEDURE [XDCL] jsp$relink_swap_queue 

° 9736 ( ijl_ordinal: jmt$ijl_ordinal; 

oO $737 ijle_p: AjmtS$initiated job _list_entry; 

o 8738 new_queue: jst$ijl_swap_queue_ id); 

o $739 

o 9740 { 

o 9741 { The purpose of this procedure 

° 9742 { to the end of another and maintain queue counts. 

© 93743 { multiple processors. 

oO s744 { 

© 9745 

oO 9746 VAR 

oO 9747 backward_ijle_p: Ajmt$initiated_job_list_entry, 

oO 3748 current _queve: jst$ijl_Swap_queue_id, 

° 9749 forward_ijle_p: Ajmt$initiated job_list_entry, 

o 93750 last_entry_in_queue: jmt$ijl_ordinal, 

oO 9751 last_ijle_p: Ajmt$initiated_job_list_entry; 

o 9752 

o 93753 

o $754 tmp$set_ lock (jsv$ijl_seriail_lock) ; 

42 93755 

42 3756 last_entry_in_queue := jsv$ijl_swap_queue_ list 

42 9757 current queue := ijle pA%.sSwap_queue_lTink.queue_ id; 

42 9758 IF current queue = new _queue THEN 

60 97593 IF new _queue <> jsc$isqi_Swapping THEN 

64 3760 mtp$error_stop (’JS - relink _swap_queue called to 
8&8 9761 ELSE 

88 9762 tmp$clear_lock (jsv$ijl_serial_lock); 

BC $763 RETURN; 

BE 3764 IFEND ; 

BE 93765 IFEND; 

BE $3766 

BE s767 { Remove entry from old swap queue if it is not 

BE 93768 

BE 93769 IF current _queue <> jsc$isqi_null THEN 

C2 $s3770 IF ijle_pA.swap_queue_ link. backward link <> jmv$nul 
D&E 93771 imp$get_ijle_p (ijle_p%.swap_queue_ link. backward_ 
DE 98772 backward _ijle_ p4.swap_queue_ link. forward _ Vink := 
104 $773 ELSE 
104 9774 jsv$ijl_swap_queue_list [current _queue].forward_1 
112 $3775 IFEND; 
112 9776 
112 9777 IF ijle_p%.swap_queve_ link. forward Tink <> jmv$null_ijl_ordinal 
122 9778 jmp$get_ijle_p (ijle_p’%.swap_queue_link. forward 1 
122 $3779 forward ijle_ p%.swap_queue_ link. backward Vink := 
152 $780 ELSE 
152 9781 jsv$ijl_swap_queue_ list [current_queuve] .backward_ 
160 9782 IFEND; 
160 $783 
160 9784 isv$ijl_swap_queue_list [current _queue].count := 
170 9785 IFEND ; 
170 $786 
170 $787 IF jsv$ijl_swap_queue_list [current_queue] .backward_1 
186 9788 IF jsv$ijl_swap_queue_ list [current_queue]. forward_ 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 
NGOS/VE js monitor mode job swapper 


REL INK_SWAP_QUEUE 


jisv$ijl_swap_quewe_ list 


1989-08-21 13:33:34 


is to move and IJL entry from one Swap queue 
Process must be serialized for 


[new_queue] .backward_ link; 


relink to Same queue. 


in the null queue. 


1_ijl_ordinal THEN 
link, backward _ijle_p); 
ijle_pA.swap_queue_Tink. forward link; 


ink := ijle_pA.swap_ queue _ link. forward link; 


THEN 
ink, forward_ijle_p); 
ijle_p”.swap_queue_link. backward_ Tink; 


Tink :* ijle_pA.swap_ queue _ link.backward_ link; 


[current_queue].count - 1; 


THEN 
THEN 


ink = jmv$null_ijl_ordinal 


Tink <> jmv$null_ijl_ordina}! 


1989-08-21 13:33:34 


182 9789 mtp$error stop (‘JS - swap queue linkage error.’); 

1B2 9790 IFEND; 

1B6 9791 ELSE 

1B6 9792 IF jsv$ijl_swap_queve_list [current queue]. forward Tink = jmv$null_ijl_ordinal THEN 
1BE 9793 mtp$error_stop (‘JS - swap queue linkage error.’); 

1DE 93794 IFEND; 

1DE 3795 IFEND; 

1DE 9796 

1DE $797 { Add entry to the end of the new queue unless it is the null queue. If it is the null queue just change 
1DE 9798 { the queue id. Entries in the null queue are not linked. 

1DE 93789 

1DE 9800 IF new_queue <> jsc$isqi_null THEN 

1E6 9801 IF last_entry_in_queue <> jmv$null_ijl_ordinal THEN 

1F6 $802 imp$get_ijie_p (last_entry_in_queue, last_ijle_p); 

1F6 $803 last_ijle_p4.swap_ queue _ Tink. forward Tink := ijl_ordinal; 

1FG 9804 ijlie_ pA.swap_quewe link. backward link := last _entry_i1n_queue; 

22A 9805 ELSE 

22A 9806 ijle_p4.swap_queue_ link.backward_ link := jmv$null_ijl_ordinal; 

224 9807 isv$ijl_swap_queue_ list [new_queue].forward_ link := ijl_ordinal; 

244 9808 IFEND; 

244 #9809 

244 9810 ijle_pA.swap_queue_ link. forward Tink := jmv$null_ijil_ordina?l; 

244 9811 isv$ijl_swap_queue_list [new_queue] .backward_link : = ijl ordinal; 

244 #9812 jisv$ijl_swap_queuvue_list [new_queue].count := jsv$ijl_swap_queue_list [new_queue].count + 1; 
268 9813 IFEND; 

268 9814 

268 9815 { Check quewe links for correctness. 

268 9816 

268 9817 IF jsv$ijl_swap_queve_list [new_queue] .backward_ link = jmv$null_ijl_ordinal THEN 
27E $818 IF jsv$ijl_swap_queue_list [new_queue].forward_ link <> jmv$null_ijl_ordinal THEN 
28A 9819 mtp$error_stop (’JS - swap queue linkage error.’}; 

2AAR 9820 IFENO; 

2AE 9821 ELSE 

Z2AE 9822 IF jsv$ijl_swap_queue_ list [new_queuve].forward_link = jmv$null_ijl_ordinal THEN 
2B6 9823 mtp$error_stop (’JS - swap queue linkage error.’); 

2D6 9824 IFEND; 

206 9825 IFEND ; 

206 9826 

206 93827 ijle_ pA.swap queue Tink.queue_id := mew_queue; 

206 9828 

206 9829 tmp$clear_lock (jsv$iji_serial_lock); 

312 9830 

312 $831 PROCEND jsp$relink_swap_ queue; 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


NOS/VE js : monitor mode job swapper 
RESET SWAPPED JOB _MM_TABLES 
oO $833 
o 9834 { 
o $3835 { The purpose of this procedure is restore the memory manager tables so that the job being swapped 
o saze { in may proceed with execution from the point at which it was interrupted when swapped out. The 
© 93837 { page frame table, page table and AST tabie are updated for the page frames swapped 
o 9838 { out. If an asid is reassigned the asid is updated in each task’s segment table and the system 
o 983s { file table. The segment table address in each task’s exchanges package is also updated. 
o 3840 { 
© 9841 
0 9842 
Oo 9843 PROCEDURE reset _swapped_job_mm_tablies 
Oo $844 ( ijl_ordinal: jmt$iji_ordinatl; 
o 9845 ijle_p: Ajmt$initiated_job_list_entry; 
Oo 9846 Swapped_job_entry: jmt$swapped_job_entry; 
Oo 9847 VAR sfd_p: Ajst$swap_file_descripteor; 
o 9848 VAR status: syt$monitor_ status) ; 
© 9849 
©° 9850 
SOURCE LIST OF jsm$monitor _mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 
NOS/VE js monitor mode job swapper 


RESET_SWAPPED_JOB_MM_TABLES 
change_asids_in_sfd 


Pmoamodc0oo0odo0oo00o0od00c0coaoo0oo0a0o0ac0aooncoao0ooo0o0o000go 


$853 


$304 
8905 
S306 


(on Note Ete El ote ote ote te) 


PURPOSE: 
This procedure is called whenever an ASID is reassigned during swapin. 
DESIGN: 
The procedure does the following: 


Scan the rest of the SPD array. Remaining entries that used the old ASID are updated to 
reflect the new ASID. 


PROCEDURE change_asids_in_sfd 


( starting _spd_index: © .. osc$max_page_ frames; 
new_asid: ost$asid; 
new_asti: mmt$ast_index; 


new_aste_p: Ammt$act ive _segment_table_entry; 
ijle_p: Ajmt$initiated job _ list entry; 
changing _jf_asid: boolean) ; 


VAR 
existing entry: boolean, 
fde_p: gft$locked file desc_entry_p, 
old_asid: ost$asid, 
spd_index: © .. osc$max_page_ frames; 


Change the ASIDsS in the rest of the SFD for each that used the ASID that was just reassigned. 

The entries in the SFD prior to the current dont have to be changed since they will never be referenced 
again. 

Pages can have their ASID changed more than once; the entry updated flag helps to differentiate those 
pages from other pages. For example, if asid AAAA changes to BBBB, and later BBBB changes to CCCC, the 
the entry updated flag differentiates BBBB pages that had been AAAA pages from pages that happened 

to be using asid BBBB when they Swapped out. 


reset changed _ asid := TRUE; 
old _asid : = Sfd_p4.swapped_page_ descriptors [starting spd_index] .pft_entry.sva.asid; 
existing _entry := sSfd_p*.swapped page descriptors [starting spd_index].entry updated; 
IF existing entry THEN 
trace (jsc$ti_change_asid_again, 1); 
ELSE 
trace (jsc$ti_change asid, 1); 
IFEND; 
FOR spd_index := starting spd_index TO UPPERBOUND (sfd_p4.swapped_page_descriptors) DO 
IF (existing_entry = sfd_p4.swapped_page descriptors [spd_index].entry updated) AND 
(old _asid = sfd_pA.swapped page descriptors [spd_index].pft_entry.sva.asid) THEN 
trace (jsc$ti_change_asid_sfd, 1); 
sfd_pA.swapped_page_ descriptors [spd_index].page table _entry.pageid.asid := new_asid; 
sfd_p4.swapped_page_descriptors [spd_index].pft_entry.sva.asid : = new_asid; 
Sfd_p4.swapped page _descriptors [spd_index] .pft_entry.aste_p := new_aste_p; 
Sfd_pA.swapped page_ descriptors [spd_index].entry updated :* TRUE; 
IFEND; 
FOREND ; 


IF (new _aste_p4.sfid.residence <> gfc$tr_system_wait_recovery) AND (NOT changing _jf_asid) THEN 
gfp$mtr_get_ locked fde_p (new_aste_ p4.sfid, ijle_p, fde_p); 
fde_ pA.asti := new _asti; 

IFEND; 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.60 89102 
NOS/VE js : monitor mode job swapper 
RESET _SWAPPED_JOB_MM_TABLES 


change_asids_in_sfd 


146 
146 


$907 


9908 PROCEND change_asids_in_sfd; 


SOURCE LIST OF jsm$S$monitor_mode_job_ swapper NOS/VE CYBIL/II 1.0 89102 
NOS/VE js monitor mode job swapper 


RESET_SWAPPED_JOB_MM_TABLES 


te) $911 

oO 9912 VAR 

o $813 changing jf _asid: boolean, 

} 9914 count: integer, 

o 93915 current queue id: mmt$page_ frame_queve_id, 

© 9916 found _sva: boolean, 

° $917 existing pfti: mmt$page_frame_index, 

° $918 existing pfte_p: Ammt$page_ frame_tabie_entry, 

o 9919 fde_p: gft$file_desc_entry_p, 

o 9820 if_asid: ost$asid, 

° $321 if asid_changed: boolean, 

oO 33922 jif_aste_p: Ammt$active segment_table_entry, 

o 93923 jf_asti: mmt$ast_index, 

Oo 9924 if_sfid: gft$system_file identifier, 

oO $925 live _aste_p: AmmtS$active_segment_table_entry, 

fe) 9926 mpt_ count: integer, 

Oo $927 mpt_ status: mmt$make_pt_entry status, 

oO 93928 msg: string (70), 

o $929 new_asid: ost$asid, 

o $830 new_aste_p: Ammt$active_segment_table_entry, 

o 6$331 new_asti: mmt$ast_index, 

o 9832 next_pfti: mmt$page_frame_index, 

o $933 pfti: mmt$page_frame_index, 

o 93934 pt_full_status: mmt$pt_full_status, 

o $3935 pti: integer, 

Oo 9936 recovery: boolean, 

o $337 reset_changed_asid: boolean, 

o 9938 SPd_index: © osc$max_page_frames, 

o 9339 Spd_p: Ajst$swapped_page_ descriptor ; 

o $940 

° 9941 { When the job was last swapped out and the old swap file descriptor freed, 
°o 9942 { was set equal to the value of the free running cleck. The page map must 
° 9943 { purged since that time. If the map is NOT purged, references to the SFD 
QO 9944 { that were assigned at the PREVIOUS swapout. Purging of the map has been 
° 9945 { NOT be required at this point since something else will nave purged the 
oO 9946 

° 9947 mmp$conditional_purge_all_map (ijle_pA”.sfd_ purge timestamp) ; 

3A 9948 

3A 9949 


3A 9950 { 
3A 9951 { 
3A 9952 { 


The following code will verify the swap file descriptor. 
upon finding corrupted data 
system attribute-HALT_ ON SWAPIN FAILURE. 


The action the system will 
in the swap file descriptor depends on the value of the 


1989-08-21 


1889-08-21 


be purged if 


13:33:34 


13:33:34 


the IJL.PURGE MAP_TIMESTAMP 
it has not been 


may use the OLD page frames 


delayed since it will 


map. 


take 


imc$restart_on_abort THEN 
ime$restart_on_recovery; 


3A 9953 

34 9954 IF sfd_pA.ijl_entry.system_supplied mame <> ijle_pA.system_supplied_ name THEN 
50 93955 IF jsv$hait_on_swapin_failure THEN 

5C $3956 mtp$error stop (’Bad swap file descriptor data detected.’); 

&9o Ssgs57 ELSE 

so 93958 msg := °° Job XXXXXXXXXXXXXXXXKXXX is dead. Bad swap data detected.’; 
8E $959 msg (6, 19) :* ijle_pA.system_supplied_ name; 

98 $3960 dpp$display_error (msg); 

B4 9961 ijle_pA.hung task_in_job := TRUE; 

B& 9962 IF ijle_pA.queue file _information. job_abort_ disposition = 

c2 $3963 ijle_ pA.queue file _ information. job recovery disposition :=: 

CA 9964 ELSE { jmc$terminate_on_abort 

CA 9965 ijle_ pA.queue_ file _ information. job_recovery disposition :=: 


imc$terminate_on_recovery; 


usually 


PAGE 


PAGE 
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DO 33866 IFEND; 
DO 93967 status.normal := FALSE; 
DO 3968 status.condition := jse$bad_swap_file_data_detected; 
DO 9969 RETURN; 
EO 9970 IFEND; 
EO 93971 IFEND; 
EO 9972 
EO 9973 current queue _id := LOWERVALUE (mmt$job_page_queue_index); 
EO 9974 pfti := ijle_p%.job_page_queue_ list [current _queue_ id]. 1ink.bkw; 
EO 9975 spd_index := LOWERBOUND (sfd_p4.swapped_page descriptors); 
EO 93376 
EO $977 { If this is the first swapin since a system recovery, the old AST entry cannot be referenced since 
EO $878 { the AST may have moved. Set a flag for subsequent use to indicate if this is a recovery swapin. 
EO 99793 
EO 93880 recovery := jmce$dsw_job_recovery IN ijle_p4.delayed_swapin_work; 
EO 9981 if _asid_ changed := FALSE; 
EO 93982 reset changed_asid :: FALSE; 
EO 9983 
EO 9984 { Restore the SFID in the ASTE for the job fixed segment. (The sfid was unknown when the aste was assigned 
EO g985 { in claim_pages_for_swapin. Pick up the sfid from the first page of the swapped page descripto, which is 
EO 93986 { a job fixed page. The job fixed sfid will not change. } 
EO 9987 
EO 9988 if_asid := ijle pA. job_fixed_asid; 
EO 93989 mmp$asti (jf_asid, jf_asti); 
122 9990 jf_aste_p : = Ammv$ast_pA [jf_astil]; 
122 9991 Jf_sfid := sfd_p4”.swapped page _ descriptors [spd_index].ast_entry.sfid; 
122 9992 jif_aste_ p%.sfid :: jf_sfid; 
122 $993 
122 g994 { If the ASID of job fixed has changed, update the ASIDs in the swap file descriptor. 
122 gg9g5 { NOTE: The swapped page descriptor entry _ updated field was set to TRUE by mmp$build_ lock rma_list 
122 s9gs { for all job fixed pages. This was done to differentiate job fixed pages from other fixed pages. 
122 9997 { When scanning each page in the swap file descriptor to see if the ASID needs to be reciaimed/ 
122 9998 { reassigned, nothing will need to he done for job fixed pages, because they have been updated 
122 93998 { here, if necessary. 
122 10000 
122 10001 IF (ijle_p4.job_fixed_asid <> sfd_p4.swapped_page_descriptors [spd_index] .pft_entry.sva.asid) OR 
156 10002 (recovery) THEN 
*WARN* 10003 change_asids_in_sfd (spd_index, jf_asid, jf_asti, jf _aste_p, ijle_p, TRUE); 
184 10004 if_asid changed :: TRUE; 
194 10005 IFEND; 
194 10006 
194 10007 
194 10008 { Loop through each page in the swap file descriptor. 
194 10008 { Reclaim the old ASID if it iS still available (may still be assigned) or assign a new ASID 
194 10010 { if the old ASID has been reused for something else. Make PT entries for each page. 
194 10011 
194 10012 WHILE pfti <> Oo DO 
198 10013 next pfti := mmv$pft_pA [pfti]. link. bkw; 
198 10014 spd_p := Asfd_pA.swapped_page_descriptors [spd_index] ; 
198 10015 live_aste_p := spd_p4.pft_entry.aste_p; 
198 10016 
198 10017 { If the SPD entry has already been updated (as a result of reassigning the ASID and updating the SPD 
198 10018 { array), skip the following blocks of code that assign/reciaim the AST entry. 
188 1001S { Note: ‘entry updated’ is reset by mmp$build_lock_ rma_list on swapout. 
198 10020 
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198 10021 IF spd_pA.entry updated THEN 
1D2 10022 
1D2 10023 {nothing needs to be done 
1D2 10024 
1D2 10025 trace (jsc$ti_rmmt_no_change, 1); 
1E4 10026 
1E4 10027 { If the page belongs to a permanent file the ASID can be reciaimed only if the AST entry is still 
1E4 10028 { assigned to the same SFID. (AST is not actually reclaimed - its still assigned) 
1E4 10029 f If the AST is not still assigned, check with DM to see if another ASID has been assigned. 
1E4 10030 { If this is a recovery Swapin, throw the page away unless it’s been modified; if the page has been 
1E4 10031 f{ modified, set the AST entry to indicate the page is awaiting recovery. 
1E4 10032 { 
1E4 10033 { NOTE: After a mew asid is assigned, the ast entry information is copied from the swapped page 
1E& 10034 { descriptor ast entry. Because the spd ast entry contains stale information with respect to 
1&4 10035 { pages im memory and pft_link, those fields must be zeroed out in the new entry. (This occurs 
1E4 10036 { after each call to mmp$assign_asid. 
1E4 10037 
1E4 10038 ELSEIF (spd_p4.ast_entry.sfid.residence = gfc$tr_system) THEN 
1EE 10039 trace (jsc$ti_rmmt_pf, 1); 
1EE 10040 IF recovery THEN 
200 10041 IF spd_p4A.page_ table _entry.m THEN 
200A 10042 trace (jsc$ti_rmmt_pf_rec_ ptm, 1); 
2O0A 10043 mmp$assign_asid (new_asid, new_asti, new_aste_p); 
238 10044 spd_pA.ast_entry.sfid.residence :: gfc$tr_system_wait_ recovery; 
238 10045 new _aste pA :: spd_pr.ast_entry; 
24C 10046 new_aste_ pA.pages_in_memory := 0; 
24C 10047 new_aste_pA.pft_link.bkw := 0; 
24C 10048 new_aste pA.pft_Tink.fwd := 0; 
*WARN# 100493 change _asids_in_sfd (spd_index, new_asid, new_asti, mew_aste_p, ijle_p, FALSE); 
294 10050 ELSE 
294 10051 trace (jsc$ti_rmmt_pf_reec_ptu, 1); 
234 10052 mmp$relink_page_ frame (pfti, mmc$pq_free) ; 
282 10053 pfti :: 0; {prevent making PT entry} 
2C6 10054 IFEND; 
2CA 10055 ELSEIF (spd_p4.ast_entry.sfid <> live_aste_ pA.sfid)} OR NOT live_aste_pA.in_use THEN 
2DE 10056 gfp$mtr_ get _fde_p (spd_pA.ast_entry.sfid, ijle_p, fde_p); 
348 10057 new_asti := fde_pA.asti; 
348 10058 IF new _asti = © THEN 
35C 10059 trace (jsc$ti_rmmt_pf_assign_asid, 1); 
35C 10060 mmp$assign_asid (new_asid, new_asti, new_aste_p); 
38C 10061 new_aste pA := spd_pA.ast_entry; 
394 10062 new_aste_ pA.pages_in_memory := 0; 
39A 10063 new_aste_ pA.pft_Tink.bDkw := 0; 
39A 10064 new_aste pr. pft_link.fwd := 06; 
3AC 10065 ELSE 
3AC 10066 trace (jsc$ti_rmmt_pf_reuse_asid, 1); 
3AC 10067 mmp$asid (new _asti, new_asid); 
3D0 10068 new_aste_p : = Ammv$ast_pA [new_asti]; 
3E6 10069 IFEND ; 
*WARN# 10070 change_asids_in_sfd (spd_index, new_asid, new_asti, mew_aste_p, ijie_p, FALSE); 
454 10071 IFEND; 
&66 10072 
466 10073 { If the segment is a local file or transient segment, the ASID can NOT be reclaimed if some other job 
466 10074 { has used the AST entry since the current job used it OR the AST entry has already been assigned to be 
466 10075 { 


used for another segment of current job. 
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466 10076 
466 10077 ELSEIF recovery OR (live _aste_p’.ijl_ordinal <> ijl_ordinai) OR 
48E 10078 (live_aste_ps.in_use AND (live_aste_pA.sfid <> spd_p4%.ast_entry.sfid)) THEN 
48E 100798 trace (jsc$ti_rmmt_lf_assign_asid, 1); 
4&E 10080 mmp$assign_asid (new_asid, new_asti, new_aste_p); 
4co 10081 new_aste pA :: spd _prA.ast_entry; 
4CE 10082 new_aste pA.pages_in_memory := 0; 
4CE 10083 new_aste pA.pft_link.bkw :: 0; 
4CE 10084 new_aste pA.pft_Tink.fwd := 0; 
*tWARN* 10085 change_asids_in_sfd (spd_index, new_asid, new_asti, new_aste_p, ijle_p, FALSE); 


524 10086 


524 10087 { The same ASID can be used. If the AST entry is not currently assigned it must be reclaimed. The AST 
524 10088 { might still be assigned if pages of the segment remained in the AVAIL queue while the job was swapped out. 
524 10089 { Preserve the live ast entry pages_in_memory and pft_link fields. (The spd ast_entry contains state 
524 10090 { information in those two fields. ) 

524 160091 

524 100382 ELSEIF NOT live_aste_p%.in_use THEN 

52C 10093 trace (jsc$ti_rmmt_1f_reuse_asid, 1); 

52C 10094 mmp$assign_specific_asid (live_aste_p)j; 

54A 10095 spd_p4.ast_entry.pages_in_memory := live _aste_p%.pages_in_memory ; 

540A 10096 spd_pA.ast_entry.pft_link.DBkw := live_aste_ pA. pft_lTink. Dkw; 

54A 10097 spd_p4.ast_entry.pft_lTinmk.fwd := live _aste pA.pft_ link. fwd; 

54A 10098 live_aste_ p% := spd_pA.ast_entry; 

56c 10089 IFEND ; 

56C 10100 

S6C 10101 

56C 10102 

56C 10103 { Create and reserve the page table entry. (If the page has been discarded, PFTI is zero.) 

56C 10104 

S56cC 10105 IF pfti <> O THEN 

570 10106 mpt count := 0; 

570 10107 REPEAT 


576 10108 
576 10109 { Zero out the segment link in the swapped page descriptor pft_entry; the links in the entry are 


576 10110 { left over from when the job was running before. (Non-zero Tinks in make_pt_entry will cause a failure. ) 

S576 10111 

576 10112 spd_pA.pft_entry.segment_ Tink. bkw = 0; 

S876 10113 Sspd_p4.pft_entry.segment_ link. fwd = 0; 

S876 10114 mmp$make_pt_entry (spd_pA.pft_entry.sva, pfti, spd_pA.pft_entry.aste_p, Aspd_pA.pft_entry, 

SAA 10115 mpt_ status) ; 

SAA 10116 

SAA 10117 [{ If the page tabie entry was made sucessfully, restore the PFT entry and the page table V C M bits. 

BAA 10118 { Zero out the pft.active_io_count im case PFTS io was active when the swapped page descriptor 

SAA 10119 { information was captured. 

5AA 10120 

SAA 10121 CASE mpt_ status OF 

SBA 10122 = mmc$mpt_done = { Normal return 

SBA 10123 trace (jsc$ti_rmmt_pt_done, 1); 

5BA 10124 spd_pA.pft_entry.link := mmv$pft_p’ [pfti]. link; 

SBA 10125 mmvSpft_ pA [pfti] := spd_pA.pft_entry; 

608 10126 mmv$S$pft pA [pFfti].task_queve. head = 0; 

608 10127 mmv$Spft_ pA [pfti].task_queue.tail := 0; 

608 10128 mmv$Spft pA [pfti].active_io_count = 0; 

608 10129 pti := spd_pA.pft_entry.pti; 

608 10130 mmv$pt_pA [pti].u :* spd_pA.page table_entry.u; 
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608 10131 mmv$pt_p’ [pti].m := spd_p4.page_table_entry.m; 
*WARN# 10132 mmv$pt_pA [pti].v := spd_p%.page_table_entry.v; 
664 10133 
664 10134 { If a page table full reject occurred, call MM to process the PT full condition. If still not successful 
664 10135 { abort the swappin and free the resources assigned to the job. If page table full processing was 
664 10136 { successful and the ASID was changed, update the CHANGED ASID list. 
664 10137 
664 10138 => mmc$mpt_page_table_full = 
664 10139 changing jf_asid :: (Sspd_p”.pft_entry.sva.asid = if_asid); 
664 10140 mmp$process_ page _tabie_ full (spd_p%.pft_entry.sva, new_asid, mew_asti, nmew_aste_p, 
BA4 10141 pt_full_ status); 
6A4 10142 trace (jsc$ti_rmmt_pt_full, 1); 
6A4 10143 mpt_count := mpt_count + 1; 
6A4 10144 IF (pt _full_status = mmc$pfs_failed) OR (mpt_count > 20) THEN 
6C8& 10145 IF spd_pA.pft_entry.aste pA.pages_ in_memory = 0 THEN 
6D6 10146 mmp$free_asid (spd_p%.pft_entry.sva.asid, spd_p%.pft_entry.aste_p); 
GEE 10147 IFEND; 
GEE 10148 trace (jsc$ti_rmmt_pt_full_ failed, 1); 
“WARN 10149 free _ swapped_jobs_mm_resources (ijle_p, ijl_ordinal, jmc$iss_swapin_io_complete) ; 
716 10150 mtp$set_ status abnormal (‘JS’, jse$pt_full_on_swap_in, status); 
716 10151 RETURN; 
72E 10152 ELSEIF pt_full_ status = mmc$pfs_input_asid_reassigned THEN 
734 10153 trace (jsc$ti_rmmt_pt_full_sucec, 1); 
*WARN* 10154 change_asids_in_sfd (spd_index, new_asid, new_asti, new_aste_p, ijle_p, changing_jf_asid); 
782 10155 IF changing jf_asid THEN 
786 10156 jf_asid_changed := TRUE; 
786 10157 if_asid := new_asid; 
786 10158 jif_asti := new_asti; 
786 10159 trace (jsc$ti_pt_full_reassign_jf, 1); 
TAG 10160 IFEND; 
702 10161 IFEND; 
704 10162 
7D4 10163 { If an entry already exists, it better belong to a permanent file that is now in 
7D4 10164 { a@ shared queue or to a local file in one of the invalid page table queues or the 
704 10165 { io error while swapped queue. 
704 10166 
7D4 10167 = mmcS$mpt_page_already_exists = 
7D4 10168 #HASH_SVA (spd_pA.pft_entry.sva, pti, count, found_sva); 
7DA 10168 IF NOT found sva THEN 
7TFO 10170 mtp$error_ stop (‘JS - cannot find existing job_shared page.’); 
812 10171 IFEND; 
812 10172 existing pfti := mmv$pt_p’ [pti].rma * 512 DIV osv$page_size; 
812 10173 existing pfte_p := Ammv$pft_pA [existing _pftil; 
812 10174 
812 10175 { IF a page in the jws had io active when memory was freed, it was put into the available modified 
812 10176 { queue. If 10 has not yet completed, the page is still there. We will delete the new page coming in 
812 10177 { incase the I0 completes with an error and we need to reset the modified bit. IO completed normally 
812 10178 { if the existing page is in the available queue and we can just delete it. If an io error occurred, 
812 10178 { the existing page is in the Swapped io error queue. We will delete the new page coming in and 
812 10180 { reclaim the io error page later in swapin. ‘ 
812 10181 
812 10182 IF (existing pfte_pA.aste_p’.sfid.residence = gfc$tr_job) THEN 
85C 10183 IF (existing pfte_pA.queue_id = mmc$pq_avail) THEN 
866 10184 trace (jsc$ti_rmmt_pte_exists_a, 1); 


866 10185 mmp$delete_pt_entry (existing pfti, TRUE); 
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88A 10186 mmp$relink_page_frame (existing pfti, mmc$pq_ free); 
8A4 10187 ELSEIF ((existing pfte_p4.queue_id = mmc$pq_swapped_io_error) OR 
8B2 10188 (existing pfte_p%.queue_id = mmc$pq_avail_modified)) THEN 
8B2 10189 IF (existing pfte_pA.queue_id = mmc$pq_swapped_io_error) THEN 
8BE 10190 trace (jsc$ti_rmmt_pte_exists_err, 1); 
&8DO 10191 ELSE 
8DO 10192 trace (jsc$ti_rmmt_pte_exists_am, 1); 
8DE 10193 IFEND; 
8DE 10194 mmp$relink page frame (pfti, mmc$pq_free) ; 
8FE 10195 mpt_ status := mmc$mpt_done; 
SFE 10196 ELSE 
*WARN 10197 mtp$error_stop (’JS - Page table entry already exists on swap in (reset tables).’); 
924 10198 IFEND; 
$28 10199 ELSEIF (existing _pfte pA.aste_ pr.queue_id >= mmc$pq_shared_first) AND 
$3C 10200 {existing pfte_prA.aste_ pA. queue_id <= mmc$pq_shared_last) THEN 
93C 10201 trace (jsc$ti_rmmt_pte_exists_pf, 1); 
93C 10202 mmp$relink_page_frame (pfti, mmc$pq_free) ; 
962 10203 mpt_ status := mmcS$mpt_done; 
964 10204 ELSE 
964 10205 mtp$error_ stop (‘JS - Page table entry already exists on swap in (reset tables).’); 
98C 10206 IFEND; 
$834 10207 CASEND; 
994 10208 
$94 10209 UNTIL mpt_status = mmc$mpt_done; 
9AO 10210 IFEND; 
9AO 10211 


$AO0 10212 { Get next page frame index. 
SAO 10213 


SAO 10214 WHILE ((next_pfti = 0) OR (nmext_pfti = ijle_p4.swap_io_control.swap_file_descriptor_pfti)) AND 
9B4 10215 (current queue_id < UPPERVALUE (mmt$job_page_queue_index)) DO 

9B4 10216 current _queue_id := SUCC (current _queue_id) ; 

984 10217 next _pfti :2 ijle pA. job_page_queue_ list [current _queue_id]. link. bkw; 
9B4 10218 WHILEND; 

9DA 10219 

SDA 10220 pfti := mext_pfti; 

9DA 10221 

SDA 10222 spd_index : = spd_index + 1; 

$DA 10223 

SDA 10224 WHILEND ; 

9E4 10225 

9E4 10226 IF jf_asid_changed THEN 

9E8 10227 gfp$mtr_get_locked_fde_p (jf_sfid, ijle_p, fde_p); 

AG4 10228 fde_ pA.asti :2 jf_asti; 

A770 10229 IFEND ; 

ATO 10230 

A70 10231 reset_sdt_xcb_tables (ijl_ordinal, ijle_p, TRUE, reset_changed_asid); 

A&S4 10232 


A&84 10233 PROCEND reset_swapped_job_mm_tables; 
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© 10235 

© 10236 { 

© 10237 { PURPOSE: : 

© 10238 { This procedure is called at the end of swapin to reset XCB and SDT information that may 
© 10239 { have changed while the job was Swapped out. 

© 10240 { DESIGN: 

© 10241 { The segment tables RMAS are fixed, if mecessary. If any ASIDS changed while the job was 
© 10242 { Swapped out, the old ASIDS must be zeroed out in the segment tables of all tasks of the job. 
o 10243 { On the next page fault for a page of a segment with a zeroed out ASID, the ASID will be 
© 10244 { obtained from the FDE. 

© 10245 

© 10246 PROCEDURE reset sdt_xcb tables 

© 10247 ( ijl_ordinal: jmt$iji_ordinal; 

© 10248 ijle_p: Ajmt$initiated job_list_entry; 

© 102493 reset _sdt_ addresses: boolean; 

© 10250 reset _changed_ asid: boolean) ; 

o 10251 

© 10252 VAR 

© 10253 asid: ost$asid, 

oO 10254 aste_p: AmmtSactive_segment_ table entry, 

© 10255 asti: mmt$ast_index, 

Oo 10256 fde_p: gft$locked_file_desc_ entry p, 

© 10287 fix_asid: hoolean, 

Oo 10258 global_asids changed: boolean, 

Oo 10259 if_asti: mmtS$ast_index, 

© 102606 job_asids changed: boolean, 

© 10261 max segnum: integer, 

© 10262 max _segnum_to_update: integer, 

© 10263 recovery: boolean, 

Oo 10264 rma: integer, 

© 10265 segment._number: ost$segment, 

© 10266 sdt_p: mmt$max_sdt_p, 

O© 10267 sdtx_ p: mmt$max_sdtx_p, 

o 10268 system_job_monitor_sdt_p: mmt$max_sdt_p, 

© 10269 system_job_monitor_sdtx_p: mmt$max_sdtx_p, 

Oo 10270 template_asids_ changed: boolean, 

© 10271 timestamp: integer, 

Oo 10272 xcb p: Aost$execution_control_ block, 

Oo 10273 xcb_ state: tmt$find next _xcb_state; 

Oo 10274 

Oo 10275 mmp$get_max_sdt_sdtx_ pointer (mtv$system_job_monitor_xcb_ p, system_job_monitor_sdt_p, 

4 10276 system_job_monitor_sdtx_p) ; 

4 10277 

4 10278 recovery := jmc$dsw_job_recovery IN ijle_pA.delayed_swapin_work ; 

4 10279 

4 10280 { If this is the first sSwapin of this job since job recovery occurred, device management tables 
4 10281 { need to be recovered. 

4 10282 

4 10283 IF recovery THEN 

4C 10284 trace (jsc$ti_rxcb_recovery, 1); 

4c 10285 recover _job_dm_tables (ijle_p, ijl ordinal, system_job_monitor_sdtx_p); 

84 10286 IFEND; 

84 10287 

84 10288 { Determine the kinds of updates that have to be made to the ASIDs in the segment tables of tasks in the 
84 10289 { job. GLOBAL_ASIDS HAVE CHANGED means an ASID of a shared/sharable segment has changed since the job was 
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84 10290 was swapped. JOB _ ASIDS HAVE CHANGED means a job local ASID was changed on swapin OR a job local ASID that 
84 10291 belonged to the job was reassigned while the job was swapped out but no pages of the segment were in 
84 160292 in the swap file. 
84 10293 
84 10294 timestamp :: ijle_pA.sSwap_data.asid_ reassigned timestamp; 
84 102395 giobal_asids_changed := (mmv$time_changed_gliobal_asid > timestamp) OR 
A& 10296 ( jmc$dsw_job_shared_asid_changed IN ijle_p’.delayed_swapin_work); 
A& 10297 job_asids_ changed := (reset _changed_asid) OR ( jmc$dsw_job_asid_changed IN ijle_pA.delayed_swapin_work) ; 
BS 10298 template _asids_changed :=: mmv$time_changed_ template_asid > timestamp; 
B& 10299 IF template asids changed THEN 
cc 10300 trace (jsc$ti_rxcb_temp_asids_ changed, 1); 
DA 10301 IFEND; 
DA 10302 IF job_asids_changed THEN 
DE 10303 trace (jsc$ti_rxcb_job_asids_ changed, 1); 
EC 10304 IFEND; 
EC 10305 IF global_asids_ changed THEN 
FO 10306 trace (jsc$ti_rxcb_glob_asids_ changed, 1); 
FE 10307 IFEND; 
FE 10308 
FE 10309 { Determine the maximum segment number that may have to be updated. If ONLY template ASIDS hNave changed 
FE 10310 { the max segnum is determined by the largest template segment number in use. Otherwise all segments have 
FE 10311 { to be examined. 
FE 10312 
FE 10313 IF giobal_asids changed OR job_asids changed THEN 
106 10314 max segnum_to_update := 4096; 
1OE 10315 ELSEIF template _asids_ changed THEN 
112 10316 max segnum_to_ update := mmv$max_template segment_number ; 
120 10317 ELSE 
1260 10318 max_segnum_ to _ update := 0; 
124 10319 IFEND; 
124 10320 
124 1060321 { Update the tables in job fixed. Fix the segment table RMA in each XCB. Update the ASIDS in 
124 10322 { the segment tables if necessary. 
124 10323 
124 10324 tmp$find_next_xcb (tmc$fnx_swapping job, ijle_p, ijl_ordinal, xcb_ state, xcb_p); 
14E 10325 
14E 10326 IF (max_segnum_to_update > 0) OR reset_sdt_addresses THEN 
186 10327 WHILE xcb_p <> NIL DO 
168 10328 trace (jsc$ti_rxcb_fix_xcb_ sdt, 1); 
168 10329 mmp$get_max _sdt_sdtx pointer (xcb_p, sdt_p, sdtx_p); 
168 10330 
168 10331 IF reset _sdt_addresses THEN 
1AC 10332 i#real_memory address (sdt_p, rma); 
1€4 10333 xcb_ pA.xp.segment_tablie_address_1 := rma DIV 10000(168) ; 
104 10334 xcb pA.xp.segment_table_ address 2 := rma MOD 10000(16); 
1EA 10335 IFEND; 
1EA 10336 
TEA 10337 IF max _segnum_to_ update > O THEN 
1EE 10338 trace (jsc$ti_rxcb_fix_asids, 1); 
1EE 103393 max segnum := max _segnum_to_update; 
1EE 10340 IF max _segnum = 40396 THEN 
202 10341 max segnum :: xcb_ pA.xp.segment_table_length; 
20E 10342 IFEND; 
20E 10343 FOR segment number := © TO max _segnum DO 
218 10344 IF (sdt_pA.st [segment_number].ste.vl <> osc$vl_invalid_entry) AND 
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RESET SDT_XCB_TABLES 
234 10345 (sdt_p4A.st [segment_number].ste.asid <> 0) THEN 
234 10346 
234 10347 aste_p := Ammv$ast_pA [sdt_p4.st [segment_number ] .asti]; 
234 10348 IF (NOT aste_pA.in_use) OR (aste_pr.sfid <> sdtx_p’.sdtx_table [segment_number].sfid) OR 
284 10349 (Caste _pA.sfid.residence = gfc$tr_job) AND (ijl_ordinal <> aste_pA.ijl_ordinal)) THEN 
284 10350 
284 10351 IF (sdtx_p%.sdtx_table [segment_number].open_validating ring mumber = 0) AND 
2AA 10352 (sdtx_pA.sdtx_tabie [segment_number].sfid = system_job_monitor_sdtx_p%. 
2AA 10353 sdtx_table [segment _number].sfid)}) THEN 
240A 10354 sdt_pA.st [segment_number] := system_job_monitor_sdt_p4.st [segment_number ] ; 
244 10355 trace (jsc$ti_rxcb_fix_templ_asid, 1); 
2Cc 10356 
2CC 10357 ELSEIF segment_number = osc$segnum_job_fixed heap THEN 
202 10358 sdt_pA.st [segment_number].ste.asid :+ ijle_pA.job_fixed_asid; 
2D2 10359 mmpSasti (ijle_pA.job_fixed_asid, jf_asti); 
2FE 10360 sdt_pA.st [segment_number].asti := jf_asti; 
2FE 10361 trace (jsc$ti_rxcb_fix_jf_asid, 1); 
318 10362 
318 10363 ELSEIF (sdtx_p4.sdtx_ table [segment_number].sfid.residence = gfc$tr_ system) OR 
334 10364 (sdtx_ pA.sdtx_table [segment_number].sfid.residence = gfc$tr_job) THEN 
334 10365 gfp$mtr_get_locked_ fde_p (sdtx_p4A.sdtx_table [segment_number].sfid, ijle_p, fde_p); 
3C8 10366 IF (sdtx_pA.sdtx table [segment number ].sfid.residence = gfc$tr_job) THEN 
*WARN* 10367 mmp$get_verify_asti_in_fde (fde_p, sdtx_p4.sdtx_table [segment_number].sfid, ijl_ordinal, 
444 10368 asti); 
44A 10369 ELSE 
&4A 10370 asti :5 fde_pA.asti; 
45C 10371 IFEND; 
4SC 10372 IF asti <> © THEN 
464 10373 mmp$asid (asti, asid); 
47E 10374 sdt_pA.st [segment_number].ste.asid := asid; 
47E 10375 sdt_pA.st [segment_number].asti := asti; 
47E 10376 trace (jsc$ti_rxcb_fix_job_asid, 1); 
4AG 10377 ELSE 
4@AG 10378 sdt_pA.st [segment_number].ste.asid 72 0; 
4A4 10379 trace (jsc$ti_rxcb_zero_job_asid, 1); 
; 4BC 10380 IFEND ; 
4&CC 10381 ELSE 
4Cc 10382 sdt_p4.st [segment_number].ste.asid := 0; 
4cc 10383 trace (jsc$ti_rxcb_zero_asid, 1); 
4E2 10384 IFEND; 
4E4 10385 IFEND; 
4E4 10386 
4E4 10387 IFEND; 
4E4 10388 FOREND ; 
4E8& 10389 IFEND; 
4E& 103390 
4E&8 10391 tmp$find_next_xcb (tmc$fnx_continue, NIL, jmv$null_ijl_ordinal, xcb_ state, xcb_p); 
S51A 10382 
S1A 10393 WHILEND; 
S2E 10394 IFEND ; 
S2E 10395 
S2E 10396 IF jmc$dsw_adjust_cpu_selections IN ijle_pA.delayed_swapin_work THEN 
S3A 10397 update processor selections (ijle_p, ijl_erdinal); 
S4E 10398 IFEND; 
S4E 10398 
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RESET_SDT_XCB_TABLES 


S4E 10400 { Debug lists need to be updated on the first Swapin for job recovery. Update the debug lists in each XCB. 


5S4E 10401 

S4E 106402 IF jmc$dsw_update debug lists IN ijle_p4A.delayed_swapin_work THEN 

SSA 10403 ijle_pA.system_breakpoint selected := FALSE; 

S5A 10404 tmp$find_next_xcb (tmc$fnx_swapping_job, ijle_p, ijl_ordinal, xcb_state, xcb_p); 
58A 10405 WHILE xcb p <> NIL DO 

S59C 10406 tmpSset_up_debug_registers (xcb_p4A.giobal_task_id.index, ijle_p, xcb_p); 

5BC 10407 tmp$find_next_xcb (tme$fnx_continue, NIL, jmv$null_ijl_ordinal, xcb_state, xcb_p); 
SE8 10408 WHILEND ; 

SFE 10409 IFEND; 

SFE 10410 

SFE 10411 IF jmce$dsw_update_server_files IN ijle_pA.delayed_swapin_work THEN 

BOA 10412 update _server_files (ijle_p, ijl_ordinal)j; 

61E 160413 IFEND; 


61E 10414 
61E 10415 { The swap file descriptor has net been freed if we are swapping in from disk. 


S61E 10416 

61E 10417 IF ijle_p%.sfd_p <> NIL THEN 

62C 10418 free swap_file_ descriptor (ijle_p, ijl_ordinal); 
724 10419 IFEND; 


72& 10420 
724 10421 { Swap status is advanced to executing. 


72A 10422 
72H 10423 complete _swapin (ijl_ordinal, ijle_p, ijle_p4.swap_data.swapped_job_entry.available modified page count); 
T3A 10424 
738A 10425 PROCEND reset sdt_xcb tables; 
0 10426 
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RESTART _IDLED TASKS 
oOo 10428 
Oo 10428 PROCEDURE [INLINE] restart _idied_tasks 
© 10830 ( ijl_ordinal: jmt$iji_ordinal; 
oO 10431 ijle_p: Ajmt$initiated_job_list_entry); 
Oo 10432 
© 10433 { 
© 10434 { The purpose of this procedure is to restart the tasks that have been idied for swapping. 
o 10435 { There are some timing considerations with multiple CPUS and the dispatcher. At the time 
°o 10436 { this procedure is called the job is effectively swapped in. The job’s swap_status is set to 
oO 10437 { indicate job executing. The job is also relinked into the mull swap queue so that it can 
© 10438 { be swapped out again if it goes into tong wait before finishing the Final cleanup for 
o 10439 { swapping in. 
© 10440 { It is not necessary to set the PTL lock to change entry status, because the transition will 
© 10441 f{ not cause the swapped job count to change. The job cannot swap out asynchronousty on another 
o 10442 { precessor in long wait because the tasks have not been restarted until after the entry status 
© 10443 { change. 
Oo 10444 
© 10445 jisp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_nul1); 
© 10446 advance_swap_state (ijle_p, jme$iss_executing) ; 
0 10447 jmp$change_ijl_entry_ status (ijle_p, jmc$ies_job_in_memory) ; 
oO 10448 
o 10449 f{ Update counts if the job has reserved memory through the mmp$assign_pages request 
o 10450 
Oo 10451 IF ijle_ pA.memory reserve request .requested page count >» © THEN 
o 10452 IF (mmv$reassignable_page_frames.now - mmv$aggressive_ aging _level_2) > 
o 10453 ijle_pA.memory reserve request .requested page count THEN 
oO 10454 ijle_pA.memory_ reserve request .reserved page count :: 
o 10455 ijle_pA.memory_ reserve request .reserved page count + 
Oo 10456 ijle _pA.memory reserve request .requested page count ; 
o 10487 mmv$reserved page_count := mmv$reserved page count + 
o 10458 ijle_pA.memory_ reserve _ request .requested page _ count ; 
oO 10459 ELSE 
© 10460 trace (jsc$ti_reserve_memory failed, 1); 
Oo 10461 IFEND ; 
o 190462 ijle_p”.memory reserve _ request .requested_ page count := 0; 
o 104683 IFEND; 
Oo 10464 
© 10465 { If something in the job/task environment has changed, update it. 
Oo 10466 
Oo 10467 IF jmc$dsw_update_job_task_enviro IN ijle_p4.delayed_ swapin_work THEN 
Oo 10468 tmp$update_job_task_environment (ijle_p, ijl_ordinal, tmc$fnx_swapping_ job) ; 
Oo 10469 IFEND; 
Oo 10470 
© 10471 { While the job was swapped, if writes to local files completed with am io error, the pages 
oOo 10472 { were put into the swapped io error queue. Reclaim those pages. 
0 10473 
0 10474 IF jmc$dsw_io_error_while swapped IN ijle_ p4A.delayed_ swapin_work THEN 
Oo 10475 reciaim_io_error_pages (ijl_ordinal, ijle_p); 
Oo 10476 IFEND; 
o 10477 
© 10478 IF syv$perf_keypoints_enabled.swapping stack trace THEN 
Oo 10479 tmp$monitor flag job_tasks (syc$mf_for_keypoint_traceback, ijle_p); 
oO 10480 IFEND ; 
Oo 10481 
oO 106482 
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RESTART_IDLED_ TASKS 


© 10483 { The XCB of this job can now be modified. 
o 10484 { This job is a candidate for being swapped out again. 
© 10485 
© 10486 tmp$restart_idied_ tasks (ijle_p4.ajl_ordinal) ; 
Oo 10487 
© 10488 { While the job was swapped, if a segment that has pages in the working set changed so its 
© 10488 { pages are now in the Shared queue, remove the pages from the jws 
© 10490 
© 10491 IF jmc$dsw_job_shared_asid_changed IN ijle_p4A.delayed _swapin_work THEN 
© 10492 mmp$remove_swapped shared _ pages (ijle_p); 
Oo 10493 IFEND; 
Oo 10494 
o 10495 PROCEND restart _idled tasks; 
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SET SWAPPING _ EVENT 


© 10497 

© 10498 PROCEDURE [INLINE] set _swapping_event 

© 10499 ( event_time: jst$swapping event); 

o 10500 

o 10501 { 

o 10502 { This procedure sets up the flags so that mtm$monitor_interrupt_handier will recall 
© 10503 { jsp$advance_swap immediately for swapping activity or later for polling purposes. 
Oo 10504 { 

© 10505 

© 10506 VAR 

Oo 10507 cSt_p: Aost$cpu_state_tabie; 

o 10508 

© 10509 

o 10510 jsv$time_to_call_job_swapper := #FREE RUNNING CLOCK (0) + event_time; 
o 10511 

© 10512 IF event_time = jsc$se_immediate THEN 

© 10513 mtp$cst_p (cst_p); 

© 10514 cst _pA.dispatch_control.asynchronous interrupts pending := TRUE; 

0 10515 osv$time_to_check_asyn :=: 0; 

Oo 10516 IFEND; 

Oo 10517 

Oo 108518 PROCEND set swapping event ; 
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DIRECTION CHANGED TO_IN 


© 10520 
© 10521 PROCEDURE direction changed _to_in 
oOo 10522 ( ijl_ordinal: jmt$iji_ordinal,; 
© 10523 ijlie_p: Ajmt$initiated_job_list_entry); 
© 10524 
© 10525 f{ 
o 10526 { The purpose of this procedure is to swapin a job that is currently 
© 10527 { being swapped out. 
© 10528 { 
o 10529 
© 10530 VAR 
© 10531 swap_status: jmt$ijl_swap_status; 
Oo 10532 
© 10533 Swap_status := ijle_p4A.swap_status; 
4 10534 
4 105835 IF swap status = jmcS$iss_idie_ tasks _initiated THEN 
E 10536 trace (jsc$ti_sif_idie_tasks_init, 1); 
E 10837 restart_idiled_tasks (ijl_ordinal, ijle op); 
182 10538 ijle_p%.next_swap_status := jme$iss_ null; 
184 10539 
184 1060540 ?IF debug = TRUE THEN 
10541 IF syv$allow_jr_test THEN 
10542 IF syc$tjr_mtr_rit IN syv$test_jr_system THEN 
10543 mtp$Serror_ stop (‘JOB RECOVERY TEST’); 
10544 IFEND; 
10545 IFEND; 
18A 10546 ?7IFEND 
18A 10547 ELSEIF (swap_status = jmc$iss_job_ allocate _swap_fiile) OR : 
1A2 10548 (swap_status = jmc$iss_wait_allocate_swap_file) OR (swap_status = jmc$iss_wait_job_io_ complete) OR 
1A2 10549 (swap_status = jmc$iss_wait_allocate_sfd) THEN 
1A2 10550 trace (jsc$ti_sif_wait_state, 1); 
1A2 10551 IF swap_status = jmc$iss_wait allocate sfd THEN 
1B6 10552 jisv$pages needed _for_sfd := 0; 
1B6 10553 trace (jsc$ti_zero_out_pages_for_sfd_1, 1); 
1C6 10554 IFEND; 
1C6 10555 ijle_ pA.next_swap_status := jmc$iss_nuli; 
1C6 10556 swapin_before_io (ijl_ordinal, ijle_p); 
1DE 10557 ?IF debug = TRUE THEN 
10858 IF syv$allow _jr_test THEN 
10559 IF syc$tjr_mtr_mamtam IN syv$test_jr system THEN 
10560 mtp$error_ stop (‘JOB RECOVERY TEST’); 
10561 IFEND; 
10562 IFEND; 
1DE 10563 ?IFEND 
1DE 10564 
1DE 10565 ELSEIF (swap_status = jmc$iss_Swapout_io_initiated) OR (swap_status = jmc$iss_wait swapout_io_init) THEN 
1EC 10566 trace (jsc$ti_sif_swapout_io_init, 1); 
1EC 10567 ijle_pA.motify swapper_when_io_ complete :=: FALSE; 
1EC 10568 free swap_file descriptor (ijle_p, ijl ordinal); 


2FA 10569 


2FA 10570 { Update reassignable page frames to reflect swapout io aborted, job is being Swapped in. 


2FA 10571 


2FA 10572 mmv$reassignable page _ frames.soon := mmv$reassignable _page_frames.soon - 

2FA 10573 ijle_p%.swap_data.swapped job _page_ count + ijle_p”.job_fixed contiguous pages; 

2FA 10574 ijle_pA.swap_io_control.spd_index :+ LOWERVALUE (mmt$page_frame_index) ; 
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DIRECTION CHANGED TO_IN 


2FA 10575 ijle_pA.next_swap_status := jmc$iss_null; 

2FA 10576 swapin_after_io (ijl_ordinal, ijle_p); 

324A 10577 ELSE ° 

324 10578 mtp$error_ stop (’JS - inconsistant swap status on swap direction change. ’); 
344 105793 IFEND; 


344A 10580 
344A 10581 PROCEND direction_changed to_in; 


163 


164 
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SWAPIN BEFORE_IO 
o 10583 
oO 10584 PROCEDURE swapin_before_io 
© 10585 ( ijl_ordinal: jmt$ijl_ordinatl; 
© 10586 ijle_p: Ajmt$initiated_job_list_entry) ; 
Oo 10587 
Oo 10588 VAR 
o 105898 ajl_ordinal: jmt$ajil_ordinal, 
o 10590 status: syt$monitor_ status; 
o 10591 
© 10592 imp$assign_ajl_entry (ijle_p4.job_fixed_asid, ijl_ordinal, jmc$swapping_aj1, FALSE {must assign} , 
38 10593 ajl_ordinal, status); 
38 10594 IF NOT status.normal THEN 
40 10595 trace (jsc$ti_no_ajlo_swapin_before_io, 1); 
40 10596 IF (ijle_p%.swap_status = jmc$iss_wait_job_io_complete) OR 
SE 10597 (ijle_p4.swap_status = jmc$iss_wait_allocate_sfd) THEN 
SE 10598 mmv$reassignable_page_frames.soon :: mmv$reassignable_page_frames.soon - 
SE 10599 ijle_p”.swap_data.swapped_job_page_ count + ijle_pA.job_fixed_ contiguous pages; 
5E 10600 mmv$reassignable_ page _frames.swapout_io_not_initiated := 
82 10601 mmv$reassignable page frames.swapout_io_not_initiated + 
82 10602 ijle_pA.swap_data.swapped_job_ page _ count - ijle_p’.job_fixed_ contiguous pages; 
82 106063 IFEND, 
82 10604 advance_swap_state (ijle_p, jmc$iss_swapped_no_io); 
96 10605 jsp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_Swapped_io_not_init); 
B2 10606 jmp$reset_job_to_swapped_out [(ijil_ordina}) ; 
C2 10607 RETURN; 
C& 10608 IFEND; 
C4 10609 
C4 10610 IF syv$perf_keypoints enabled.swapping keypoints THEN 
DO 10611 kt.S := ijle_pA.system_supplied_ mame (16, 4); 
DE 10612 #KEYPOINT (osk$performance, osk$m * kt.f1, ptk$swapin_job_name_1); 
F2 10613 #KEYPOINT (osk$performance, osk$m * ((kt.f2 * 256) + ajl_ordinal), ptk$swapin_job_name_2)} j; 
10C 10614 IFEND; 
10C 10615 
10C 10616 IF (ijle_pA.swap_status <= jmc$iss_allocate_swap_file) THEN 
1-6 10617 mmv$reassignable_ page_frames.swapout_io_not_initiated ::= 
132 10618 mmv$reassignabie page frames.swapout_io_not_initiated - ijle_ p4.swap_data.swapped_ job _ page count + 
132 10619 Tjle_ pA. job_fixed contiguous pages; 
132 10620 ELSEIF (ijle_p4.swap_status = jmc$iss_wait_job_io_complete) OR 
13E 10621 (ijle_p4A.swap_status = jmc$iss_wait_allocate_sfd) THEN 
13E 10622 mmv$reassignable_ page frames.soon := mmv$reassignable page _frames.soon - 
156 10623 ijle_p4.swap_data.swapped_job_page_count + ijle_p4.job_fixed_ contiguous pages; 
1586 10624 IFEND ; 
156 10625 
156 10626 { Swap status is advanced to executing. 
156 10627 
156 10628 complete swapin (ijl_ordinal, ijle_p, ijle_p4A.swap_data.swapped_ job_entry.avai lable modified page_count) ; 
166 10629 
166 10630 PROCEND swapin_before_ io; 
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NOS/VE js monitor mode job swapper 
SWAPIN_ AFTER_I0 
© 10632 
© 10633 PROCEDURE swapin_after_io 
Oo 10634 { ijl_ordinal: jmt$ijl_ordinat; 
© 10635 ijle_p: Ajmt$initiated_job_list_entry) ; 
Oo 10636 
oOo 10637 VAR 
© 10638 ajl_ordinal: jmt$ajl_ordinal, 
© 106398 status: syt$monitor_status; 
Oo 10640 
© 10641 impSassign_ajl_entry (ijle_pA.job_fixed_asid, ijl_ordinal, jmc$swapping_ajl, FALSE {must assign} , 
38 10642 ajl_ordinal, status); 
38 10643 IF NOT status.normal THEN 
40 10644 trace (jsc$ti_no_ajlo_swapin_after_io, 1); 
40 10645 IF (ijle_pA.swap_status = jmc$iss_swapped_io_cannot_init) THEN 
58 10646 mmv$reassignablie page _ frames.swapout_io cannot _initiate -:= 
58 10647 mmv$reassignable page _frames.swapout_io_cannot_initiate + 
58 10648 ijle_pA.swap_data.swapped_job_page_ count - ijle_ pA. job_fixed contiguous pages; 
58 10649 jisp$relink_swap_queve (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_cannot_init); 
8E 10650 ELSEIF (ijle_pA.swap_status = jmc$iss_swapped_io_ complete) THEN 
$96 10651 mmv$reassignable_ page frames.now := mmv$reassignabie_page_frames.now + 
96 10652 ijle_pA.swap_data.swapped_job_page_count - ijle_pA.job_fixed contiguous pages; 
96 10653 jisp$relink_swap_queve (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_completed) ; 
cc 10654 ELSEIF (ijle_p%”.swap_status = jmc$iss_swapout_io_initiated) OR 
DA 10655 (ijle_p%.swap_status = jmc$iss_wait_swapout_io_init) THEN 
DA 10656 mmv$reassignable page frames.swapout_io_not_initiated :: 
DA 10657 mmv$reassignable_page_frames.swapout_io_not_initiated + 
DA 10658 i1jle_p%.swap_data.swapped_ job_page_ count - ijle_ pA. job_fixed contiguous pages; 
DA 10659 isp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_not_init); 
10C 10660 advance_swap_state (ijle_p, jmc$iss_swapped_no_io); 
126 10661 ELSE 
126 10662 mtpS$error_stop (‘BAD SWAP STATUS-SWAPIN AFTER 10’); 
146 10663 IFEND ; 
146 10664 imp$reset_job_to_swapped_out [(ijl_ordinal); 
156 10665 RETURN; 
158 10666 IFEND ; 
158 10667 
158 10668 IF syv$perf_keypoints_enabled.swapping keypoints THEN 
164 10669 kt.S :2 ijle_pA.system_supplied_name (16, 4); 
172 10670 #KEYPOINT (osk$performance, osk$m * kt.f1, ptk$swapin_job_name_1); 
186 10671 #KEYPOINT (osk$performance, osk$m * ((kt.f2 * 256) + ajil_ordinal), ptk$swapin_job_name_2); 
1A0 10672 IFEND; 
1A90 10673 
1A0 10674 { Swap status is advanced to executing. 
140 10675 
1AO 10676 reset _sdt_xcbh tables (ijl_ordinal, ijle_p, FALSE, FALSE); 
1B2 10677 
1B2 10678 PROCEND swapin_after io; 
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SOURCE LIST OF jsm$monitor_mode_job_swapper 


NOS/VE CYBIL/II 1.90 891062 


1989-08-21 13:33:34 


NOS/VE js : monitor mode job swapper 
UPDATE PROCESSOR _SELECTIONS 
Oo 10680 
o 10681 { 
© 10682 { Purpose: 
© 10683 { This procedure is called before swapin of a job is complete in order to readjust the processors 
o 10684 { which a job has selected and on which its tasks will execute. Processor selections will he 
o 10685 { adjusted IF AND ONLY IF the task has, as its processor selections, only these processors which 
o 10686 { are not on. 
o 10687 { 
© 10688 
o 10688 PROCEDURE update processor selections 
© 10690 ( ijle_p: Ajmt$initiated_job_list_entry; 
Oo 10691 ijl_ordinal: jmt$ijl_ordinal); 
Oo 106392 
oO 1906393 VAR 
© 10694 xcb_p: Aost$execution_control block, 
© 10695 xcb state: tmt$find_next_xcb_ state; 
oO 106396 
Oo 10697 
© 10698 tmp$find_ next _xcb (tmc$fnx_Swapping job, ijle_p, ijl_ordinal, xcb_state, xcb_p); 
2E 10699 
2E 10700 WHILE xcb p <> NIL DO 
3E 10701 IF (xcb_pA.processor_ selections * mtv$scb.processors_logically_on) = $est$processor_id_set [] THEN 
54 10702 xcb_p4.processor selections := mtv$scb.processors logically_on; 
58 10703 IFEND; 
58 10704 tmp$find_next_xcb (tmc$fnx_continue, NIL, jmv$null_ijl_ordinal, xcb_state, xcb_p); 
88 10705 WHILEND ; 
$C 10706 
gC 10707 PROCEND update processor selections; 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1988-08-21 13:33:34 


NOS/VE js 


monitor mode job swapper’ 
UPDATE _SERVER_FILES 


o 10709 
o 10710 PROCEDURE update server files 
o 10711 ( ijle_p: Ajmt$initiated_job_list_entry; 
© 10712 ijl_ordinal: jmt$ijl_ordinal); 
Oo 10713 
Oo 10714 VAR 
o 10715 fde_p: gftS$file desc _entry_p, 
© 10716 msg: string (70), 
Oo 10717 next pfti: mmt$page_frame_index, 
o 10718 page _ status: gft$page_ status, 
o 10719 pfti: mmt$page_frame_index; 
0 10720 
Oo 10721 pfti := ijle_p4.job_page_queue_list [mmc$pq_job_working set]. link. bkw; 
4 10722 
4 10723 { It is not necessary to clear the valid bit before checking the modified bit in this case; the job is 
4 10724 { in the process of Swapping in, so nothing else can be referencing the pages. 
4 10725 
4 10726 WHILE pfti <> Oo DO 
C 10727 next pfti := mmv$pft_ pA [pFfti]. link. Dkw; 
c 10728 IF mmvS$pft_pA [pfti]l.aste_pA.sfid.residence <> gfc$tr_system_wait_recovery THEN 
3A 10729 gfp$mtr_get_fde_p (mmv$pft_p’ [pfti].aste_pA.sfid, ijle_p, fde_p); 
SE 10730 IF fde_pA.media = gfc$fm_served file THEN 
AC 10731 dfp$fetch page status (fde_p, ©, page_status); 
CA 10732 IF (page_status = gfc$ps_server terminated) OR ((page_ status = gfc$ps_volume_unavailable) AND 
10E 10733 (NOT mmv$pt_p* [mmv$pft_pA [pfti].ptil.m)) THEN 
1OE 10734 
10E 10735 { If the server is terminated or server is unavailable and we are reading, delete the page. 
10E 10736 
10E 10737 mmp$delete_ pt_entry (pfti, TRUE); 
122 10738 mmp$retink page _ frame (pfti, mmc$pq_ free) ; 
136 10738 IFEND; 
136 10740 IFEND; 
136 10741 IFENO; 
136 10742 pFti := next _ pfti; 
136 10743 WHILEND ; 
13E 10744 
13E 10745 { Debug display 
13E 10746 
13E 10747 IF dfv$file_ server _debug enabled THEN 
1404 10748 IF (ijle_pA.terminate_access work = $dft$mainframe_set []) AND 
154 10749 (ijle_pA.inhibit_access_ work = $dft$mainframe_set [])]) THEN 
154 10750 msg :2 ° JOD XXXXXXXXXXXXXXXXXXX swap in - server inactivation. ’; 
168 10751 msg (6, 18) :2 ijle_p%.system_supplied_ name; 
172 10752 dpp$display_error (msg); 
18E 10753 IFEND; 
18E 10754 IF ijle_ pA. inhibit_access work <> $dft$mainframe_set [] THEN 
196 10755 msg := ’° Job XXXXXXXXXXXXXXXXXXX swap in - server inhibit access.'; 
1A4 10756 msg (6, 19) := ijle_pA.system_supplied_name; 
1AE 10757 adpp$display_error (msg); 
1CA 10758 IFEND; 
1CA 10759 IF ijle_pA.terminate_access_ work <> $dft$mainframe_set [] THEN 
1D2 107606 msg := ° Jab XXXXXXXXXXXXXXXXXXX swap in - server terminate access. ’”; 
1EO 10761 msg (6, 19) := ijle_pA.system_supplied_name; 
1EA 10762 adpp$display_error (msg); 
206 16763 IFEND; 
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PAGE 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 


NOS/VE js : monitor mode job Swapper 
UPDATE SERVER_FILES 
206 10764 IFEND; 
206 10765 
206 10766 IF (ijle_pA.terminate_access_ work = $dft$mainframe_set []) AND 
216 10767 (ijle_p%.inhibit_access work = $dft$mainframe_set []) THEN 
216 10768 
216 10769 { There is no need to change the access state. 
216 10770 
216 10771 RETURN; 
218 10772 IFEND; 
218 10773 dfp$set_task_segment_state (tmcSfnx_ swapping job, ijle_p, ijl_ordinal, ijle_ p%.inhibit access work, 
242 10774 ijle_pA.terminate_access_ work) ; 
242 10775 
242 10776 { Dont clear inhibit - let it be cleared by either job recovery 
242 10777 { or by the job when it detects that the server is not longer inactive. 
242 10778 
242 10779 ijle_pA.terminate_access_work := $dft$mainframe_set []; 
242 10780 PROCEND update_server_files; 
oO 10781 
SOURCE LIST OF jsm$monitor_mode_job_ Swapper NOS/VE CYBIL/II1 1.0 88102 1989-08-21 13:33:34 PAGE 
NOS/VE js monitor mode job swapper 
[XDCL] jsp$free_swap_resident_ job 
0 10783 
© 10784 { PURPOSE: 
o 10785 { This procedure advances the swapout of a*swap resident (swapped_io_complete) job so 
© 10786 { that its memory will be freed. 
0 10787 { DESIGN: 
© 10788 { An entry status of Swapin_in_progress indicates that the Swap resident job has just 
o 10789 { been readied on another processor and is in the swapping queue to swap in. Memory 
© 10790 { manager needs the memory that the job is holding right now, however, so the job must 
© 10791 { be reset to Swapped out so that it will swap in through the job mode scheduler path. 
© 10792 { Because dispatcher can ready tasks and swapin jobs in monitor asynchronously, the pti 
© 10793 { lock must be set during the advance swap. With the ptl lock set, dispatcher cannot 
oO 10794 { swapin a job through jmp$ready_ task_in_Swapped_job while the advance swap out is 
o 10795 { going on. 
Oo 107396 
Oo 10797 PROCEDURE [XDCL] jsp$free_swap_resident_job 
4 10798 ( Swap _resident_ijlo: jmt$ijl_ordinal; 
4 10799 swap_resident_ijle_p: Ajmt$initiated job_list_entry); 
4 108006 
4 10801 isp$relink_swap_queue (Swap_resident_ijlo, swap_resident_ijle_p, isc$isqi_swapping) ; 
26 10802 
26 10803 tmp$set_lock (tmv$pt1_ lock) ; 
SE 10804 
5E 10805 IF swap_resident_ijle_p4.entry_status = jmc$ies_ swapin_in_ progress THEN 
6C 10806 trace (jsc$ti_free_ readied s2_job, 1); 
6C 10807 imp$reset_job_to_swapped_out (Swap_resident_ijlo); 
8E 10808 IFEND; 
8E 10809 ispSmonitor_advance_ swap (swap_resident_ijlo); 
A2 10810 
A2 10811 tmp$clear_lock (tmv$pt1_lock) ; 
DA 10812 
DA 10813 PROCEND jsp$free_swap_resident_ job; 
© 10814 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1889-08-21 


NOS/VE jS : monitor mode job swapper 
JSPSIDLE TASKS COMPLETE 
© 10816 : 
© 10817 PROCEDURE [XDCL] jsp$idie_tasks_complete 
o 10818 ijl_ordinal: jmt$ijl_ordinal) ; 
© 10819 
© 10820 { 
© 10821 { The purpose of this procedure is to record that all tasks are idlied for a job being 
© 190822 { Swapped out. The swapout can now be advanced. 
oO 10823 { 
© 10824 { NOTE: It is possible that this procedure is executing in more than 1 cpu simultaneously. 
o 10825 { 
© 10826 
Oo 10827 VAR 
© 10828 ijle_p: Ajmt$initiated_job_list_entry; 
oOo 160829 
o 10830 
o 10831 imp$get_ijle_p (ijl_ordinal, ijile_p); 
4 10832 
4 10833 IF (ijle_pA.swap_status = jmc$iss_idie_tasks_initiated) THEN 
34 10834 ijle_pA.next_Sswap_status := jmc$iss_job_idle_tasks_ complete; 
34 10835 ijle_p”.delayed_ swapin_work :+: $jmt$delayed_swapin_work []; 
34 10836 
34 106837 { Dont clear inhibit - let it be cleared by either server jeb recovery 
34 10838 { or by the job when it detects that the server is not longer inactive. 
34 10839 
34 10840 ijle_pA.terminate_access_ work :: $dft$mainframe_set []; 
34 10841 set swapping event (jsc$se_immediate) ; 
82 10842 IFEND; 
82 10843 
82 10844 PROCEND jsp$idie_tasks_complete; 
SOURCE LIST OF jsm$monitor_mode_job_swapper ' NOS/VE CYBIL/II 1.60 89102 1989-08-21 
NOS/VE js monitor mode job swapper 
JSP$IO COMPLETE 
© 10846 
Oo 10847 PROCEDURE [XDCL] jsp$io_complete 
4 10848 ijle_p: Ajmt$initiated_job_list_entry); 
4 10849 
4 10850 f{ 
4 10851 f{ The purpose of this procedure is to record that Swap io has completed and the swap can 
4 10852 { mow be advanced. 
4 10853 { 
4 10854 { NOTE: It is possible that this procedure is executing in more than 1 cpu Simultaneously. 
4 10855 { 
4 10856 
4 10857 
4 10858 ijle_pA.notify_ _swapper when_io complete := FALSE; 
4 10859 
& 10860 CASE ijle pA.swap_status OF 
2C 10861 = jmc$iss_ wait _job_io_complete = 
2C 10862 ijle_p%.next swap _status := jmc$iss_job_io_complete; 
36 10863 = jmc$iss_swapout_io_initiated = 
36 10864 ijle_pA.next_ Swap_status := jmc$iss_ swapout _io_complete; 
42 10865 = jmc$iss_swapin_io_initiated = 
42 10866 ijle_ pA.next_ swap_status := jmc$iss_ swapin_io_compiete; 
4E 10867 ELSE 
4E 10868 RETURN; 
50 10869 CASEND; 
50 10870 
50 10871 set swapping event (jsc$se_immediate) ; 
6E 10872 
6E 10873 PROCEND jsp$io_complete; 


13:33:34 


13:33:34 


PAGE 


PAGE 


171 


172 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 


NOS/VE js : monitor mode job swapper 
JSPSLONG WAIT_AGING 


13:33:34 PAGE 


© 10875 

o 10876 { 

© 10877 { The purpose of this procedure is to age the working set of a job going into LONG WAIT. 
© 10878 { 

© 10879 

© 10880 PROCEDURE [XDCL] jsp$long wait_aging 

© 10881 ( ijle_p: Ajmt$initiated_job_list_entry) ; 

Oo 10882 

© 10883 VAR 

© 10884 cptime: integer, 

Oo 10885 fde_p: gft$file_desc_entry_p, 

oO 10886 ijl_ordinal: jmtS$ijl_ordinal, 

Oo 10887 initial_rtc: integer, 

© 10888 jcb_p: Ajmt$job_control_biock, 

Oo 108893 maximum pages _ to _ swap: integer, 

o 10890 minimum _ working set: jmt$working set_size, 

© 10891 modified pages removed: integer, 

© 108392 page _age_limit: integer, 

© 10833 pfti: mmt$page_frame_index, 

© 10894 queueid: mmtS$page_frame_queue_ id, 

© 10885 segment _number: ost$segment, 

© 10896 total pages removed: integer; 

Oo 10897 

© 10898 #KEYPOINT (osk$entry, 0, jsk$long wait_aging) ; 

8 10899 

8 10800 jcb_p := #ADDRESS (1, mtc$job_fixed_ segment + ijle_pA.ajl_ordinal, 0); 

& 10901 tnitial_rtc : 5 ijle_prA.statistics.ready task_count ; 

8 10902 

8 10903 IF mmv$aging_algorithm >= 4 THEN 
36 10904 cptime := ijle_pA.statistics.cp_time.time_ spent_in_job_mode; 

3E 10905 ELSE 
3E 10906 cptime := ijle_pA.statistics.cp time.time_ spent _in_job_mode + 
4A 10907 ijle_ pA.statistics.cp_time.time_spent_in_mtr_mode; 
4A 10908 IFEND, 

4A 10908 

4A 10910 trace (jsc$ti_iwa, 1); 

4A 10911 

4A 10912 IF cptime > (jcb_p4.cptime_next_age_working set + 2 * jcb_p4A.page_aging_interval) THEN 
6C 10913 trace (jsc$ti_lwa_cp_age, 1); 

6c 10914 mmp$age_job_working_set (ijle_p, jcb_p); 
8E 10915 IFEND; 

&8E 10916 

8E 10917 IF jsv$free_working set _on_swapout THEN 

96 10918 page _ age _ limit := 90; 

96 10919 minimum_working set := 0; 

9E 10920 ELSE { This is the usual case. Freeing the working set is for test purposes. } 
9E 10921 page_age_limit :: mmv$swapping_aic; 

SE 10922 minimum working set := jcb_ pA.min_working set size; 

B4 10923 IFEND; 

B4 10924 

B4 10925 mmp$remove_stale_pages (ijle_p%.job_page_queue_list [mmc$pq_job_working set], page_age_limit, jcb_p, 
F2 10926 ijle_p, mmc$pq_avail_modified, minimum_working set, modified pages _ removed, total _pages_removed) ; 
F2 10927 

F2 10928 trace (jsc$ti_lwa_stale_pages_rem, total_pages removed) ; 

F2 109298 trace (jsc$ti_lwa_stale_mod_pages_ rem, modified pages _removed) ; 

SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 


° 


‘NOS/VE jS : monitor mode job swapper 
JSPSLONG WAIT_AGING 


F2 10830 

F2 10931 IF ijle _pA.task_created_ after _last_swap THEN 

116 10932 maximum_pages_to swap := jsv$max_pages_first_swap_task; 

11E 109833 ELSE 

11E 10834 maximum _pages_to_ swap := jsv$maximum_pages_to_swap; 

122 10935 IFEND; 

122 10936 

122 109837 IF (ijle_pA.job_page_queue_ list [mmc$pq_job_working_ set] .count > maximum_pages_to_swap) THEN 
124 10838 mmp$trim_job_working set (ijle_p, jcb_p, TRUE); {true= trim_to_swap_size 

146 10939 IFEND; 

146 10940 

146 10941 ijle_ pA.task_created_after_last_Swap :=: FALSE; 

146 10942 

146 10943 IF ijle_pA.statistics.ready task count > initial rtc THEN 

152 10944 trace (jsc$ti_ lwa_ready_task, 1); 

15C 10945 IFEND; 

18C 10946 

15C 10947 { Update the MAP_PURGE TIMESTAMP. Since long wait aging may have cleared page table 

15C 10848 { ‘used’ bits and NOT purge the page map, we have to insure that the map is purged hefore 
15cC 10849 { the job is next allowed to run. Although the map could be purged at this point, it is 
15€C 10850 { defered until the job is swapped in. Usually something else will have purged the map by 
18C 10951 { this time and no purge will be required. 

15C 10952 

15C 10983 ijle_pA.age_purge timestamp :: #FREE RUNNING CLOCK (0); 

162 10954 

162 10955 { Purge maps now in case we decided not to swap out. 

162 10956 

162 10957 mmp$conditional_purge_all_map (ijle_p4”.age_purge timestamp) ; 

192 10958 

182 10959 { The following code will count the pages being swapped out and determine the segment that the 
192 10960 { page belongs to. Segments greater than or equal to 40(16) are combined and output as pages 
192 10961 { of segment 40(16). 

192 10962 

192 10963 IF jsv$enable_swap_file_ statistics THEN 

194 10964 pfti := ijle_pA.job_page queue _ list [mmc$pq_job_working_ set]. 1ink. bkw; 

194A 10965 WHILE pfti <> Oo DO 

1A2 10966 gfp$mtr_get_fde_p (mmv$pft_pA [pfti]l.aste_ pA.sfid, ijlie_p, fde_p); 
224 10967 IF fde_pA.last_segment_number >= 40(16) THEN 
234 10968 segment_number := 40(16); 
238 10969 ELSE 
238 10970 segment_nmumber := fde_ pA. last_segment number ; 
23A 10971 IFEND; 
23A 10972 isv$swap_file_statistics.total_pages_per_segment [segment_number] := 
23A 10973 jsv$swap_file_ statistics.total_pages per segment [segment_number] + 1; 
23A 10974 pfti := mmv$pft_pA [pfti]. link. bkw; 
23A 10975 WHILEND; 
26C 10976 isv$swap_file_statistics.total_pages_per_segment [3] := 
26C 10977 ijle_p%. job_page_queue_ list [mmc$pq_job_fixed] .count ; 
26C 10978 isv$swap_file_statistics.total swaps := jsv$swap_file_statistics.total swaps + 1; 
282 109793 IFEND ; 
282 10980 
282 10981 
282 106982 IF syv$perf_ keypoints enabled.swapping keypoints THEN 
28E 10983 pfti :2 ijle_p”.job_page queue _list [mmc$pq_job_working set]. link. bkw; 
28E 10984 WHILE pfti <> 0 DO 
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SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.060 891062 ; 1989-08-21 13:33:34 
NOS/VE js : monitor mode job swapper 
JSPSLONG WAIT AGING 
29A 10985 ofp$mtr_get_fde_p (mmv$pft_pA [pfti]l.aste_p%.sfid, ijle_p, fde_p); 
318 1060986 #KEYPOINT (osk$performance, osk$m * fde_pA.last_segment_number, ptk$swapping segment) ; 
328 10987 #KEYPOINT (osk$performance, osk$m * (mmv$pft_p” [pfti].sva.offset DIV osv$page_size), 
35C 10988 ptk$Sswapping_ page_number } ; 
35c 109893 pfti := mmvS$pft_pA [pftil]l. link. bkw; 
35¢ 109906 WHILEND; 
364 10991 #KEYPOINT (osk$performance, osk$m * ijle_p4A. job_page_queuve_ list [mmc$pq_job_fixed].count, 
374 10992 ptk$swapping job_fixed) ; 
374 10993 #KEYPOINT (osk$performance, osk$m * modified pages removed, ptk$swapping modified pages) ; 
380 10994 #KEYPOINT (osk$performance, osk$m * total_pages_ removed, ptk$swapping removed pages); 
38C 10995 ijl_ordinal :+ jmv$ajl_pA [ijle_p%.ajl_ordinal].iji_ordinal; 
38C 10996 #KEYPOINT (osk$performance, osk$m * (ijl_ordinal.block_mumber * 32 + ijl_ordinal.block_index), 
3BC 10897 ptk$swapping_ijl_ordinal); 
3BC 10998 IFEND; 
3BC 10999 
3BC 11000 #KEYPOINT (osk$exit, 9, jsk$long wait _aging); 
3Co 1106001 
3CO0 11002 PROCEND jsp$long_ wait_aging; 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


. 


MOS/VE js : monitor mode job swapper 
JSPSMONITOR_ADVANCE SWAP 


© 11004 

© 11005 PROCEDURE [XDCL] jspSmonitor_advance_swap 

© 11006 ( ijl_ordinal: jmt$ijl_ordinal); 

© 119007 

© 11008 { 

© 11009 { The purpose of this procedure is to advance the swap of jobs that are 
© 11010 { in one of the Swapped but memory resident queues. 

o 11011 { 

© 11012 { NOTE: It is the responsibility of the caller to update the swap queue 
© 11013 { statistics. 

© 11014 { 

o 11015 { NOTE: This procedure is entered serially if running with multiple cpu’s. 
0 11016 { 

o 11017 

o 11018 VAR 

o 11019 ijle_p: AjmtS$initiated job_list_entry, 

© 11020 poll _swapping: boolean, 

o 11021 status: syt$monitor status; 

o 11022 

9 11023 

© 11024 imp$get_ijle_p (ijl_ordinal, ijle_p); 

4 11025 

4 11026 isp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 
46 11027 


46 11028 { This has to call advance swap directly because memory manager may need memory and 
46 11028 { get it immediately. 


46 11030 

46 116031 advance _ swap (ijl_ordinal, ijle_p, polil_swapping, status); 
SE 11032 

5E 11033 IF poll swapping THEN 

66 11034 set_ swapping _event (jsc$se_polling); 

8O 11035 IFEND; 

80 11036 


8O 11037 PROCEND jsp$monitor_advance_swap; 


it expects to 


PAGE 


PAGE 


175 


176 


SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 
NOS/VE js : monitor mode job swapper 
TRACE BUFFER FOR SCHEDULER SWAPPING REQUESTS 
o 11040 
Oo 1106041 CONST 
0 11042 num_ sched swapping calis = 60; 
© 11043 
Oo 11044 TYPE 
o 11045 jist$swapping request_type = (jsc$sc_Swapout_job_mode, jsc$sc_swapout_mt 
© 11046 jsc$sc_swapin_mtr_mode, jsc$sc_swapin_mtr_direct); 
© 11047 
o 11048 VAR 
o 11049 jisv$sched_swapping_requests: [XDCL] record 
0 11050 next index: integer, 
Oo 11051 sched _ requests: array [0 .. num_sched_ swapping _calls - 1] of record 
© 11052 request _type: ALIGNED [© MOD 16] jst$swapping_ request type, 
© 11053 ijilo: jmt$ijl_ordinal, 
oO 11054 timestamp: ost$free running clock, 
o 11055 recend, 
© 11056 recend; 
o 11057 
o 11058 PROCEDURE [INLINE] sched trace 
© 11059 { request type: jst$swapping request type; 
© 11060 ijlo: jmt$ijil_ordinal); 
o 11061 
© 11062 VAR 
Oo 11063 i: integer; 
© 11064 
o 11065 i :2 jsv$sched_ swapping requests.next_index; 
Oo 11066 jsv$sched_swapping requests.next_index := (i + 1) MOD num_sched_ swappin 
© 11067 jisv$sched_swapping_requests.sched_ requests [i].request_type := request_ 
© 11068 jsv$sched_swapping requests.sched requests [i].ijlo := ijlo; 
© 11069 jisv$sched_ swapping requests.sched requests [i].timestamp := #FREE_RUNNI 
Oo 11070 
o 11071 PROCEND sched trace; 
o 11072 


SOURCE LIST OF jsm$monitor_mode_job_swapper 


NOS/VE CYBIL/TI 


1.0 89102 


NOGOS/VE js monitor mode job swapper 
JSPSMONITOR_ SWAP_IN 

Oo 11075 

© 11076 PROCEDURE [XDCL] jsp$monitor _swap_in 

© 11077 ( ijl_ordinal: jmt$iji_ordinal); 

Oo 11078 

o 11079 

© 11080 f{ 

o 11081 { The purpose of this procedure is to Swap a job in that iS in long wait. 

o 11082 { The job may be in the long wait queue, swapped out or in some intermediat 

© 11083 { state. The job is Swapped in from whatever state it is in. 

o 11084 { 

o 11085 { JSPSMONITOR_SWAP_IN (IJL_ORDINAL ) 

o 11086 { 

© 11087 { IJL_ORDINAL: (input) This parameter specifies the index in the ijl table 

o 11088 { of the entry for this job. 

o 11089 { 

o 11090 

o 11091 

o 11092 VAR 

Oo 11093, ajl_ordinal: jmt$ajl_ordinal, 

© 11094 ijle_p: AjmtS$initiated_job_list_entry, 

© 11095 jcb_p: Ajmt$job_control block, 

© 11096 status: syt$monitor status; 

o 11087 

o 11098 #KEYPOINT (osk$entry, 0, jsk$monitor_swap_in); 

& 11099 

8 11100 imp$get_ijle_p (ijl_ordinal, ijie_p); 

8 111701 

8 111902 

8 11103 IF ijle_pA.swap_status = jmc$iss_swapped_no_io THEN 

3A 11104 sched trace (jsc$sc_swapin_mtr_direct, ijl_ordinal); 

7A 11105 trace (jsc$ti_swapin_mtr_direct, 1); 

7A 11106 

7H 11107 { We could just call swapin_before_io here, but for performance reasons we 
74 11108 €{ will inline the necessary code instead. 

7A 11109 { 

7A 11110 { *** duplicated in swapin_before_io **x 

7A 11111 

7A 11112 impS$assign_ajl_with_lock (ijle_p%.job_fixed_asid, ijl_ordinal, jmc$sw 
BA 11113 ajl_ordinal, status); 

BA 11114 IF NOT status.normal THEN 

C2 11115 trace (jsc$ti_no_ajlo_mtr_swapin, 1); 

c2 11116 imp$change_ijl_entry status (ijle_p, jmce$ies swapin_in_progress)}) ; 
11€ #11117 isp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 
13C 411118 set_swapping event (jsc$se_immediate) ; 
154 11119 RETURN; 
17A 11120 IFEND; 
17A 11121 
117A 11122 IF syvS$perf keypoints enabled.swapping keypoints THEN 
186 11123 kt.s :* ijle_pA.system_supplied_ name (16, 4); 
194 11124 #KEYPOINT (osk$performance, osk$m * kt.f1i1, ptk$swapin_job_name_1); 
1A8 11125 #KEYPOINT (osk$performance, osk$m * ((kt.f2 * 256) + ajl_ordinal), 
1€2 11126 IFEND; 
102 11127 
102 11128 mmv$reassignable page _frames.swapout_io_ not_initiated := 
ic2 111293 mmv$reassignable_ page _frames.swapout_io_not_ initiated - 
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NOS/VE js 


: monitor mode job swapper 
JSPSMONITOR_SWAP_IN 


1€2 11130 ijle_pA.job_fixed contiguous pages; 

1€2 11131 

1€2 11132 { *#x duplicated in complete swapin **% 

1€2 11133 

102 11134 jecb_p :: #ADDRESS (1, mtc$job_fixed_segment + ijle_pA.ajl_ordinal, 0); 

1€2 11135 jcb_p4.next_cyclic_aging_time := #FREE RUNNING CLOCK (0) + jcb_p4.next cyclic _aging time; 

1F&8 11136 

1F8 11137 { *** duplicated in restart_idiled_ tasks *#* 

1F8 11138 

1F8 11139 isp$relink_swap_queue [(ijil_ordinal, ijle_p, jsc$isqi_nul1); 

220 11140 advance_swap_state [(ijle_p, jmcS$iss_executing) ; 

232 11141 

232 11142 jmp$change_ijl_entry_status (ijle_p, jmc$ies_job_in_memory) ; 

286 11143 

286 11144 { Update counts if the job has reserved memory through the mmp$assign_pages request 

286 11145 

286 11146 IF ijle_p%.memory_ reserve request .requested page count > 0 THEN 

282 11147 IF (mmv$reassignable_page_frames.now - mmv$aggressive_aging_level_2) > 

2ZA4 11148 ijle_pA.memory_reserve_ request .requested page _ count THEN 

2A4 11148 ijle_p%.memory_ reserve request .reserved page _ count := 

2h4 111506 ijle_pA.memory reserve request .reserved page count + 

2A4 11151 ijle p”.memory reserve request .requested page count; 

2A4 11152 mmv$reserved page count := mmv$reserved_page_count + 

2C0 11153 ijle_pA.memory reserve _ request .requested_ page _ count ; 

2CO 11154 ELSE 

2CO 11155 trace (jsc$ti_reserve_memory_ failed, 1); 

2CA 11156 IFEND; 

2CA 11157 ijle_pA.memory_ reserve request .requested_ page count := 0; 

2D2 11158 IFEND; 

2D2 11159 

202 11160 IF syv$perf_keypoints enabled.swapping stack_trace THEN 

2DA 11161 tmp$monitor flag job _tasks (syc$mf_for_keypoint_traceback, ijle_p); 

2F4 11162 IFEND; 

2F4 11163 

2F4 11164 tmp$restart_idied tasks (ijle_p4A.ajl_ordinal); 

310 11165 ELSE 

310 11166 sched trace (jsc$sc_swapin_mtr_mode, ijl_ordinal); 

34E 11167 trace (jsc$ti_swapin_from_mtr_mode, 1) ; 

34E 11168 jmp$change_iji_entry_ status (ijle_p, jmcS$ies swapin_in_progress); 

3A8 11169 jisp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 

3CA 11170 set_swapping_event (jsc$se_immediate) ; 

406 11171 ‘IFEND; 

406 11172 

406 11173 #KEYPOINT (osk$exit, 0, jsk$monitor_swap_in); 

604 11174 

4OA 11175 PROCEND jsp$monitor_swap_in; 
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PROCEDURE [XDCL] jsp$monitor_ swap_out 
( ijl_ordinal: jmt$ijl_ordinal); 


The purpose of this procedure is to prepare the specified job 
for sSwapout to mass storage. If memory is needed the swapout I0 
will be initiated and the memory freed. How far the swap 
progresses is determined by memory thresholds. 


JSPSMONITOR_SWAP_OUT (IJL_ORDINAL ) 


IJL_ORDINAL: (input) This parameter is the ‘ijl_ordinal’ of the job 
being swapped. 


VAR 
ijle_p: AjmtS$initiated job_list_entry, 
initiate Swapout_io: boolean, 
job_page_ count: mmt$page_frame_index, 
queue_id: mmt$job_page_ queue _ index; 


sched_trace (jsc$sc_swapout_mtr_mode, ijil_ordina)) ; 

imp$get_ijle_p (ijl_ordinal, ijie_p); 

IF ijle_p4.swap_queue_link.queue_id = jsc$isqi_null THEN 
trace [jsc$ti_swapout_from_mtr_mode, 1); 


imp$change_ijl_entry_status (ijle_p, jmc$ies_job_swapped) ; 


** This code is combined from code for job mode swap out requests and code in advance swap for 
** Swap state jmc$iss_job_idie_tasks_ complete - TJ. 


IF syv$perf_keypoints_enabled.swapping keypoints THEN 

#KEYPOINT (osk$performance, osk$m * ijle_pA.ajl_ordinal, ptk$ajl_for_swap_out); 
IFEND; 
ijle_p4.swap_io_control.spd_index := LOWERVALUE (mmt$page_frame_index) ; 
ijle_pA.delayed_swapin_work := $jmt$delayed_swapin_work []; 


Dont clear inhibit - let it be cleared by either server job recovery 
or by the job when it detects that the server is not longer inactive. 


ijle_pA.terminate_access_ work := $dft$mainframe_set [1]; 

Swap_data.timestamp is still the time when the job completed swapin. Swapin to swapout is residence time. 
ijle_p4.swap_data.swapout timestamp := #FREE_ RUNNING CLOCK (0); 

To prevent the situation of a task executing after monitor _swap_out has been called, 

dispatcher idied tasks before calling scheduler/swapper to swapout the job for long 


wait. We advance the swap status of the job to swapped_no_io. 


jmp$free_ajl_with_lock (ijle_p, jmc$swapping_aj1); 
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NOS/VE js : monitor mode job swapper 
: JSPSMONITOR_SWAP_ OUT 
118 11233 { Set close approximation of swapped job page count for job mode job scheduler. The count is also 
118 11234 { used for the service class statistics. 
118 11235 
118 11236 calculate swapped_pages (ijle_p); 
14A 11237 jsv$S$swap_file_ page_count.swap_count := jsv$swap_file_page_ count .swap_count + 1; 
144A 11238 jisv$swap_file_page_count.page count := jsv$swap_file_page_count.page_count + 
14A 11239 ijle_p%.swap_data.swapped_job_page count; 
144 11240 
140A 11241 tmp$set_lock (jmv$service_class_ stats_lock); 
1B6 11242 jmv$service_ciasses [ijle_p4.job_scheduler_data.service_class}4.statistics.swap_stats.residence time := 
1B6 11243 jimv$service_classes [ijle_pA.job_scheduler_data.service_class]4.statistics.swap_stats. 
1B6 11244 residence_time + (ijle_p4.swap_data.swapout_timestamp - ijle_p4.swap_data.t imestamp) ; 
1B6 11245 imv$service_ classes [ijle_p%.job_scheduler_data.service_ciass]4.statistics.swap_statsS.Sswapped pages := 
1B6 11246 jmv$service_ classes [ijle_p%.job_scheduler_data.service_class]4.statistics.swap_stats. 
1B6 11247 swapped pages + ijle_pA.Swap_data.swapped_ job_page_count; 
1B6 11248 tmp$cilear_lock (jmv$service_class_stats_1lock); 
228 11249 
228 11250 
228 11251 initiate _swapout_io := ((mmv$reassignable page_frames.now + mmv$reassignable_page_frames.soon) ¢:= 
250 11252 jmv$long wait _swap_thresnold) OR NOT jsv$enable_swap_resident_no_io; 
250 11253 
250 11254 { ** End duplicate code ** 
250 11255 
250 11256 IF NOT initiate _ swapout_io THEN 
254 #11257 advance_swap_state (ijle_p, jmc$iss_swapped_no_io}); 
266 11258 jsp$relink_Sswap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapped_io_not_init); 
28C 11259 ELSE 
28C 11260 advance_swap_state (ijle_p, jmc$iss_flush_am_pages) ; 
29E 11261 jsp$relink_swap_queue (ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 
2BE 11262 set swapping event (jsc$se_immediate) ; 
2FA 11263 IFEND ; 
2FC 11264 
2FC 11265 ELSE 
2FC 11266 mtp$error_stop (’JS - jsp$monitor_swap_out called for job not in null queue. ’); 
31C 11267 IFEND; 
31C 11268 


31C 11269 PROCEND jsp$monitor_swap_out ; 
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NOS/VE js : monitor mode job swapper 
JSP$SMTR_JOB_SWAPPING REQUESTS 


0 11272 
© 11273 PROCEDURE [XDCL] jsp$mtr_job_swapping requests 
oO 11274 (VAR request block: jst$rb_job_swapping functions); 
Oo 11275 
Oo 11276 { 
o 11277 { The purpose of this procedure is to process job swapping monitor requests from the job mode job 
o 11278 { Swapper. The JOB SCHEDULER task is executing all the swapping requests (but not set delayed swapin_work). 
o 11279 { 
© 11280 { NOTE: This procedure is entered serially if running with multiple cpu’s. 
o 11281 { 
Oo 11282 
© 11283 VAR 
Oo 11284 ijle_p: Ajmt$initiated job_list_entry, 
Oo 11285 ijl_ordinal: jmt$ijl_ordinal, 
Oo 11286 poll _ swapping: boolean; 
© 11287 
oO 11288 #KEYPOINT (osk$entry, ©, jsk$mtr_job_swapping requests); 
8 11289 
8 11290 request _ bliock.status.normal := TRUE; 
8 11291 poll_swapping := TRUE; 
8 112382 ijl_ordinal := request _block.1jl_ordinal; 
8 11293 jmp$get_ijle_p (ijl_ordinal, ijie_p); 
8 11294 
8 112985 { Process the job swapping subfunctions. 
& 11296 
8 11297 CASE request bliock.subfunction OF 
70 11288 = jsc$jss_Swap_job_in = 
70 11299 sched_trace (jsc$sc_swapin_job_mode, ijl_ordinal); 
B2 11300 trace (jsc$ti_swapin_from_job_mode, 1); 
B2 11301 
B82 11302 jsp$relink_swap_queue [(ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 
oC 11303 
pC 11304 { Set PTL lock because the swapped _job_count will be changed. It can also be changed through the 
pc 11305 { task switch/monitor swap path. 
Oc 11306 
DC 11307 tmp$set_lock (tmv$pti_ lock); 
114 11308 jmp$change_ijl_entry status (ijle_p, jmc$ies swapin_in_progress); 
166 11309 tmp$ciear_lock (tmv$pti1_ lock) ; 
19E 11310 advance_swap (ijl_ordinal, ijle_p, poll_swapping, request_biock.status) ; 
1C0 11311 IF NOT request _bilock.status.normal THEN 
108 11312 trace (jsc$ti_swapin_req status_bad, 1); 
1D2 11313 IFEND ; 
1D2 11314 
102 11315 tmp$set_lock ( jmv$service_class_ stats lock); 
206 11316 jimv$service classes [ijle_p%.job_scheduler_data.service_class]4.statistics.swap_stats.swap_wait_ time :: 
224 11317 jimv$service_ciasses [ijle_p4A.job_scheduler _data.service class]4.statistics.swap_stats. 
224 11318 swap_wait time + (#FREE_ RUNNING CLOCK (0) - ijile_pA.job_scheduler data. 
224 11319 swapin_q_priority_timestamp) ; 
224 11320 jimv$service classes [ijle_p4. job_scheduler_data.service_class]4.statistics.swap_stats. 
224 11321 scheduler_swapins := jmv$service_classes [ijle_p4. job_scheduler data.service class]4.statistics. 
224 11322 swap_stats.scheduler swapins + 1; 
224 11323 tmp$cilear_lock (jmv$service_class_stats_ lock) ; 
2Z27A 11324 
27A 11325 = jsc$jss_swap_job_out = 


Z27TA 11326 
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NOS/VE js : monitor mode job swapper 
JSPSMTR_JOB_SWAPPING REQUESTS 
27H 11327 { The PTL leck must be set to check entry status, to prevent it from changing asynchronously on 
27A 11328 { another processor through the dispatcher/monitor swap path. 
27A 11329 { If the job’s entry status is less than in_memory, the job is non_swappable. If the entry status is 
274A 11330 { greater than swapin in progress, the job is already in @ swapped out state. In either case, do nothing. 
274 11331 { The job can be swapped only if the entry status is in_memory or swapin_in_progress. 
270A 11332 
27A 11333 tmp$set_lock (tmv$ptil_lock); 
2B2 11334 
2B2 11335 IF (ijle_pA.entry_status = jmc$ies job_in_memory) OR 
2C6 11336 (ijle_p4.entry_status = jme$ies _ swapin_in_progress) THEN 
2C6 11337 job_mode_ swapout (iji_ordinal, ijle_p, request _block.swapout_ reason, poll swapping, 
2C6 11338 request biock.status) ; 
6CO 11339 IFEND; 
6CO 11340 
6CO 11341 tmp$clear_lock (tmv$pt1_lock}); 
700 11342 
700 11343 = jsc$jss_special_swapout = 
700 11344 
700 11345 { The PTL lock must be set so that the job cannot go into tong wait or go ready on another processor while 
700 11346 { status is being checked/changed here. 
700 11347 { If the job’s entry status is less than in_memory, the job is non-swappable and must be left alone. 
7OO0 11348 { If the job’s entry status is greater than swapin_in_progress, the job is already in a swapped out state; 
700 11349 { the entry status must be changed to operator force out. If the entry status is in_memory or swapin_in_ 
700 11350 { progress, the job must be swapped. 
700 #11351 
700 11352 tmp$set_lock (tmv$pti_lock); 
738 11353 
738 11354 IF ijle_pA.entry_status < jmc$ies_job_in_memory THEN 
746 11355 mtp$set_status_abnormail (’JM‘, jme$ job_cant_be_ swapped, request _block.status) ; 
760 11356 
760 11357 ELSEIF ijle_pA.entry_ status >» jmc$ies Swapin_in_progress THEN 
766 11358 IF ijle_ p4.entry_ status = jmc$ies_job_swapped THEN 
76C 11359 IF request_btock.swapout reason = jmc$sr_operator_request THEN 
774 11360 imp$change_ijl_entry status (ijle_p, jme$ies operator force out); 
7C6 11361 ELSE 
7C6 11362 jmp$change_ijl_entry_status (ijle_p, jmc$ies_job_damaged) ; 
814 11363 ijle_pA.job_scheduler_data.swapout reason := jmc$sr_job_damaged; 
81E 11364 IFEND ; 
822 11365 ELSEIF ijle_pA.entry status = jmc$ies_ system_force_out THEN 
828 11366 IF request _bilock.swapout reason = jmc$sr_operator_request THEN 
830 11367 mtp$set_status abnormal (‘JM’, jme$job_dead_ cannot _swap, request _block.status) ; 
84A 11368 ELSE 
844 11369 jmp$change_ijl_entry_ status (ijle_p, jmc$ies_job_damaged) ; 
89A 11370 IFEND; 
839E 11371 ELSEIF ijle_p4.entry_ status = jmc$ies_operator_force_out THEN 
8A4A 11372 IF request_block.swapout reason = jmc$sr_job_damaged THEN 
8AE 11373 jmp$change_ijli_entry_ status (ijle_p, jmc$ies_job_damaged) ; 
8FA 11374 IFEND ; 
8FE 11375 
8FE 11376 ELSE 
8FE 11377 
8FE 11378 { The entry status must be ready task. It cannot he job_damaged or swapin_candidate; 
8FE 11379 { job mode scheduler checks for those statuses and would not have issued the monitor request. 
8FE 11380 { It is too tricky to try to remove the job from the ready task list, so return bad status. JOB SCHEDULER 
8FE 11381 { will advance the job from ready task to swapin candidate, and process the operator swapout from there. 
e 
SOURCE LIST OF jsm$monitor,mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 184 
NOS/VE js : monitor mode job swapper 
JSPSMTR_JOB_ SWAPPING REQUESTS 
8FE 11382 
8FE 11383 mtp$set_status abnormal [(’JM’, jme$job_in_ready_task_state, request_block.status) ; 
914 11384 IFEND; 
$14 11385 
91A 11386 ELSE { entry status = jmc$ies_job_in_memory or jmc$ies_swapin_in_progress } 
S1A 11387 
914 11388 job_mode_swapout (ijl_ordinal, ijle_p, request_block.swapout_reason, poll _ swapping, 
§91A 11389 request _block.status) ; 
DO& 11390 jmp$set_ scheduler _event (jmc$examine_swapin_queue) ; 
DiA 11391 IFEND; 
D1A 11392 
DIA 11393 tmp$cilear_lock (tmv$pt1_lock) ; 
D558 11394 
D58 11395 = jsc$jss_advance_ swap =: 
DS8 11396 ijle_p*.swap_data.swapping io_error :& iec$no_error; 
D58 11397 CASE ijle_p%.swap_status OF 
D72 11398 = jmce$iss_job_allocate_swap_file = 
D72 11399 trace (jsc$ti_mtr_req_adv_from_aj, 1); 
D72 11400 ijle_pA.next_swap_status := jmcS$iss_allocate_swap_file; . 
D72 11401 advance_swap (ijl_ordinal, ijle_p, poll_swapping, request _block.status); 
DAS 11402 
DAS 11403 = jmc$iss_swapped_io_cannot_init = 
DA& 11404 trace (jsc$ti_mtr_req adv_from_sd, 1); 
DA8& 11405 isp$relink_swap_queuve (ijl_ordinal, ijle_p, jsc$isqi_swapping) ; 
DCE 11406 advance_swap (ijl_ordinal, ijle_p, poll _swapping, request _block.status) ; 
DEC 11407 
DEC 11408 ELSE 
DEC 114098 CASEND; 
DF2 11410 = jsc$jss_initiate_swapout_io = 
DF2 11411 isp$initiate_swapout_io (request_block.pages needed); 
EOC 11412 : jsc$jss_set_delayed_ swapin_work = 
EOC 11413 isp$set_delayed_swapin_work_mtr (request _block.delayed_swapin_work) ; 
E26 11414 ELSE 
E26 11415 mtp$error_stop (’JS - unimplemented subfunction code’); 
E48 11416 CASEND; 
E48 11417 
E48 11418 IF poll swapping THEN 
E50 114198 set_swapping event (jsc$se_polling); 
E68 11426 IFEND; 
E68 11421 
E68 11422 #KEYPOINT (osk$exit, ©, jsk$mtr_job_swapping_ requests); 
E6C 11423 


EBC 11424 PROCEND jsp$mtr_job_swapping_ requests; 
Oo 11425 
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NOS/VE js monitor mode job swapper 
[XDCL] jsp$recaiculate_swapped_pages 
oO 11427 
© 11428 { PURPOSE: 
o 11429 { This procedure recaiculates the swapped job_entry.jws page count and the 
© 11430 { number of reassignable page frames when job shared pages are removed 
o 11431 { from the working set of a swapping job. 
© 11432 { NOTE: 
© 11433 { Only job working set pages cound have been removed. 
o 11434 
© 11435 PROCEDURE [XDCL] jsp$recalculate_ swapped_pages 
| © 11436 ( ijle_p: Ajmt$initiated_job_list_entry; 
0 11437 pages_removed: mmt$page_frame_index) ; 
oO 11438 
oOo 11439 VAR 
© 11440 dsw_job_shared_asid_changed: [STATIC] jmt$delayed_swapin_work := [ jmc$dsw_job_shared_asid_changed] ; 
oO 11441 
Oo 11442 trace (jsc$ti_recaitculate sje, pages _removed) ; 
4 11443 
‘ 4 11444 ijle_ p%.swap_data.swapped_job_page count :=5 ijle_p4”.swap_data.swapped_ job page_count - pages removed; 
4 11445 
4 11446 IF (ijle_p%.swap_status >= jmc$iss_Swapped_no_io) AND 
36 11447 (ijle_p%.swap_status <= jmc$iss_allocate swap_file) THEN 
36 11448 ijle_p4.swap_data.swapped_job_entry.job_page_queue_ count [mmc$pq_job_working set] := 
36 11449 ijle_p%.swap_data.swapped_ job_entry. job_page_queue_ count [mmc$pq_job_working set] - pages _ removed; 
36 11450 mmv$reassignable_ page frames.swapout io _not_initiated := 
36 11451 mmv$reassignable_ page_frames.swapout_io_not_initiated - pages removed; 
36 11452 trace (jsc$ti_recal_sje_sO, pages_removed) ; 
SC 11453 ELSEIF (ijle_p%.swap_status >: jmc$iss_wait_job_io_complete) AND 
6C 11454 (i jle_p%.swap_status <= jmc$iss_allocate_sfd) THEN 
6C 11455 ijle_p4A.swap_data.swapped_job_entry.job_page_ queue count [mmc$pq_job_working set] := 
6C 11456 ijle_p%.swap_data.swapped_job_entry. job_page_ queue _count [mmc$pq_job_working set] - pages removed; 
6C 11457 mmv$reassignable page _frames.soon :: mmv$reassignable page _frames.soon - pages_removed; 
8A 11458 ELSEIF ijle_pA.swap_status = jmc$iss_swapped_jio_cannot_init THEN 
94 114593 ijle_p4.swap_data.swapped_job_entry.job_page_queue_count [mmc$pq_job_working set] := 
84 11460 ijle_pA.swap_data.swapped_job_entry. job _page_queue_count [mmc$pq_job_working set] - pages_removed; 
$4 11461 mmv$reassignable page _frames.swapout_io_cannot_initiate := 
B2 11462 mmv$reassignable page _frames.swapout_io_ cannot_initiate - pages_removed; 
B2 11463 ELSEIF ijle_p4.swap_status = jmc$iss_swapped_io_ complete THEN 
BA 11464 mmv$reassignable page _frames.now := mmv$reassignable page frames.now - pages _ removed; 
BA 11465 ijle_pA.delayed swapinm_work := ijle_ p%.delayed swapin_work + dsw_job_ shared _asid changed; 
BA 11466 trace (jsc$ti_recal_sje_s2, pages_removed) ; 
EC 11467 IFEND; 
Ec 114668 : 
Ec 11469 PROCEND jsp$recalculate swapped_pages; 
o 11470 
SOURCE LIST OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 186 
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JSPSSET DELAYED _SWAPIN WORK _MTR 
Oo 11472 
© 11473 PROCEDURE [XDCL] jsp$set_delayed_ swapin_work_mtr 
oO 11474 ( delayed _swapin_work: jmt$delayed_ swapin_work_ record) ; 
oO 11475 
Oo 11476 VAR 
Oo 11477 i: integer, 
Oo 11478 ijle_p: Ajmt$initiated _job_list_entry, 
o 114879 j: integer; 
o 11480 
oO 11481 
© 11482 /set_ijie_work/ 
4 11483 FOR i := LOWERBOUND (jmv$ijl_p.biock p%) TO jmv$ijil_p.max_block_in_use 00 
18 11484 
18 11485 IF jmv$iji_p.block_paA [i].index_p <> NIL THEN 
2A 11486 
2A 11487 /ijl_inner_loop/ 
24 11488 FOR j := LOWERVALUE (jmt$ijil_block_index) TO UPPERVALUE (jmt$iji_block_index) DO 
34 114893 
34 11490 ijle_p := Ajmv$ijl_p.block_pA [i].index_p [jl]; 
34 11491 IF ijle_pA.entry status <> jmc$ies_entry free THEN 
4E 11492 ijle_pA.delayed swapin_work := ijle_p4A.delayed swapin_work + 
&E 11493 delayed swapin_work.delayed swapin_work; 
4E 11494 IF jmc$dsw_update_server_files IN delayed swapin_work.delayed swapin_work THEN 
64 11495 ijle_p%.terminate_access_ work :* ijle p*.terminate access _ work + 
64 11496 delayed _swapin_work.terminate_access work; 
64 11497 ijle_pA.inhibit_ access work := ijle_pA.inhibit_access work + 
64 11498 delayed swapin_work. inhibit access _ work; 
64 11499 
64 11500 { The termination should always have precedence over inhibit. 
64 11501 
64 11502 ijle_pA.inhibit_access work := ijle_p%.imhibit access work - ijle_pA.terminate access work; 
82 11503 IFEND; 
82 11504 IFEND; 
82 11505 
82 11506 FOREND /ijl_inner_loop/; { j } 
86 11507 
86 11508 IFEND; 
86 11509 
86 11510 FOREND /set_ijle_work/; { i } 
8A 11511 
8A 11512 PROCEND jsp$set_delayed_swapin_work_mtr ; 
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© 11514 
o 11515 PROCEDURE [XDCL] jsp$Sswap_polling; 
o 11516 
© 11517 { 
o 11518 { The purpose of this procedure is to advance the swap for jobs that are 
© 11518 { waiting for events dependent on resource availability (resources such as memory 
© 11520 { or disk space). The resources are needed to swap the job not to execute it. 
o 11521 { 
o 11522 { NOTE: This procedure is entered serially if running with multiple cpu’s. 
o 11523 f{ 
o 11524 
© 11525 VAR 
© 11526 change_swap_direction: boolean, 
Oo 11527 ijle_p: AjmtSinitiated_job_list_entry, 
Oo 11528 ijl_ordinal: jmt$ijl_ordinal, 
o 11529 last_swap_status: jmt$ijl_swap_status, 
© 11530 next _ijl_ordinal: jmt$ijil_ordinal, 
oO 11531 poll _swapper_again: boolean, 
© 11532 poll_swapping: boolean, 
Oo 11533 status: syt$monitor status; 
o 11534 
© 11535 #KEYPOINT (osk$entry, ©, jsk$swap_polling) ; 
8 11536 
8 11537 { Set time to call swapper to maximum value so that it won’t he called until necessary. 
8 11538 { This is done now so that if an asynchronous request is received from another cpu it 
& 11539 { will not be lost. 
& 11540 
8 11541 jisv$time_to_call_job_swapper := UPPERVALUE (ost$free_ running clock)  ; 
8 11542 
&8 11543 { Advance swap on jobs in the Swap queue. 
8 11544 
8 11545 ijl_ordinal := jsv$ijl_swap_queue_ list [ jscS$isqi_swapping]. forward link; 
8 11546 poll_swapper again := FALSE; 
8 11547 
8 11548 /poll_jobs_being_swapped/ 
8 11549 WHILE ijl_ordinal <> jmv$nulil_ijl_ordinal DO 
34 11550 imp$get_ijle_p (ijl_ordinal, ijle_p); 
34 11551 next ijl_ordinal := ijle p4%.swap_ queue Tink. forward Tink; 
34 11552 
34 11553 last _swap_status := ijle_p4.swap_status; 
34 11554 change _swap_direction := ((last_swap_status <= UPPERVALUE (jmt$swapout)) AND 
C4 11555 (last_swap_status >= LOWERVALUE (jmtS$swapout)) AND 
C4 11556 (ijle_pA.entry status < jmc$ies_ swapped_out)) OR ((last_swap_status <=: ; 
C4 11857 UPPERVALUE (jmt$swapin)) AND (last_swap_status >= LOWERVALUE (jmt$swapin)) AND 
C4 11558 (ijle_p*.entry_status >» jmc$ies_swapped_in)); 
c4 11559 
C4 11560 CASE ijle_pA.swap_ status OF 
13A 11561 z= jme$iss_ executing, jmc$iss_job_idle_tasks complete, jmc$iss_swapped_no_io, jmcS$iss_flush_am_pages, 
13E 11562 jime$iss_ Sswapped_io_cannot_init, jmc$iss_sSwapped_io complete, jmc$iss_Sswapout_ complete = 
13E 11563 
13E 11564 { Continue advancing the swap. 
13E 11565 
13E 11566 = jmc$iss_ wait _allocate_sfd = 
13E 11567 jisv$pages_needed_ for _sfd := 0; 
13E 11568 trace (jsc$ti_zero_out_pages_ for _sfd_2, 1); 
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JSPSSWAP_POLLING 
13E 11569 advance_swap_state (ijle_p, jmc$iss_allocate_sfd) ; 
164 11570 = jme$iss_wait_ allocate _swap_file = 
164 11571 advance _swap_state (ijle_p, jmc$iss_allocate_swap_file) ; 
188 11572 = jmc$iss_wait_swapout_io_init = 
188 11573 advance swap_state (ijle_p, jmc$iss_initiate_swapout_io); 
TAB 11574 = jmc$iss_wait swapin_io_init = 
146 11575 advance _swap_state (ijle_p, jmc$iss_swapin_resource_claimed) ; 
1€8 11576 
108 11577 ELSE 
108 11578 
108 11579 { Swap status is either jmeS$iss_idie_tasks_initiated, jmc$iss_job_allocate swap file, 
108 11580 { imcS$iss wait _job_io_complete, jmc$iss_Sswapout_io_initiated, or jmc$iss_swapin_io_initiated. 
18 11581 { All other states are pass thru states and will never come through here. 
108 11582 
108 11583 IF (ijle_p%.next_swap_status = jmc$iss_nul1) AND ((NOT change _ swap_direction) OR 
1E4 11584 (ijle_pA.swap_status = jmc$iss_swapin_io_initiated)) THEN 
1E4 11585 ijl_ordinal := next_ijl_ordinal; 
1E4 11586 CYCLE /poll_jobs_being swapped/ 
1EA 11587 IFEND; 
1EA 11588 CASEND; 
1EA 11589 
1EA 11590 advance_swap (ijl_ordinal, ijle_p, poll_swapping, status); 
204 11591 
204 11592 IF poll _ swapping THEN 
20C 11593 poll _swapper_ again :+ TRUE; 
210 11594 IFEND; 
210 11595 
210 11596 ijl_ordinal := next_ijl_ordinal; 
210 11597 WHILEND /poll_jobs_ being swapped/ ; 
22A 11598 
22A 11599 IF (poll_swapper_again) AND (jsv$time_to_call_job_swapper = UPPERVALUE (ost$free_ running clock)) THEN 
23E 11600 set_swapping_event (jsc$se_polling) ; 
252 11601 IFEND ; 
252 11602 
252 11603 #KEYPOINT (osk$exit, 90, jsk$swap_polling); 
256 11604 
256 11605 PROCEND jsp$swap_polling; 
© 11606 


© 11607 MODEND jsm$monitor_mode_job_swapper ; 
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$394/M 9394 9754/M 
9829/M $829 10803/M 
11241 11248 11248/M 
11308 11315/M 11315 
11338/M 11338 11338 
11352/M 11352 1138S/M 
11393/M 11393 
10168 
1039304 10806 10907 
10904/M 109306/M 10912 
109812 
639383/M 
9405/P 9405/M 
9405/M 
10513/M 
10513/P 10514/M 
10841/P 10841/M 
10841/M 
10871/P 10871/M 
10871/M 
11034/P 11034/M 
11034/M 
11118/P 11118/M 11170/P 
11118/M 11170/M 
11262/P 11262/M 
11262/M 
11338/P 11338/M 11389/P 
11338/M 11389/M 11419/M 

Mzemodify, A z=attribute, 


3769 


10214 
8737 
$4so0 


8324 
10236 
10537 
11465 


11496 
8786 


1473 


43938 


4010 
41890 


Azattribute, 


8502 
9086/M 
11383/M 


8426 
9377 


$812 


7278/M 

9754 
10803 
11248 
11323 
11338/M 
11388 


11170/M 


11389/M 


$S$=subscript, 


9774/S 


10215 


9048 
10297 
10537 
11432/M 


11498 
8787 


4395 
4181 


S=subscript, 


8639 
9407 
11389 


8431 
10937 


7278 

$762 
10811 
11307/M 
11323/M 
11338 
11389 


11419/P 


9781/S 


10216/M 


9117 
10396 
10537 
11492 


8793 


4396 


I1=1/0 ref, 


IzI/O ref, 


Reread, Wewrite, 


1989-68-21 13:33:34 
8695 8700 8835/M 
9504 9968/M 10150/M 
8431 8969 8371 

10S77 10991 11236 
$387/M $387 $394 
9762/M $762 9829 

10811/M 10811 11241/M 

11307 11303 11309/M 
11323 11333/M 11333 

11341 11341/M 11341 

11389/M 11389 11333 

11419/M 

Reread, Wewrite, 

1989-08-21 13:33:34 
9784/5 9784/S 9787/S 
10216 10217/S 
9117 $117 9398/M 
10402 10411 10467 
10835/M 11216/M 11338/M 


PAGE 


PAGE 


193 


P=parameter 


194 


P=parameter 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89162 1989-0 
NOS/VE js : monitor mode job swapper 
JSP$SWAP_POLLING 
IDENTIFIER----- rer rr ert et eee DEFINED------ 7 eee re eee REFERENCES 
ON LINE 
dfc$task_ services 4385 4214 
dfc$terminated 4381 4356 
dfc$unrecovered disk_error 4592 4620 
dfp$fetch page status 5269 10731 
dfp$set_task_segment_state 5276 10773 
dft$allocated command_buffer 4289 4288 
dft$allocated data _rma_list 4250 4249 
dftS$allocated monitor buffer 4313 4312 
dft$channel definition 4952 4926 4948 
dft$channel_ specification 4911 3923 3924 
dft$connect ion_address 4055 4050 4051 
dft$connect ion_descriptor 4048 4036 
dft$connection_fiags 4063 4056 
dft$connect ion_type 4324 3919 4142 
dft$cpu_queue 4129 4023 
dft$cpu_queue_ entries 4134 4131 
dft$cpu_queue entry 4185 4134 
dft$cpu_queue header 4137 4130 
dft$cpu_queue_pva_entries 4010 3996 
dft$cpu_queue_ pva_entry 4022 4011 
dft$data_ descriptor 4110 4077 4078 4079 
dft$dma_adapter 3999 3986 
dft$driver queue 4027 4019 
dft$driver_queue_entries 4068 4029 
dft$driver queue entry 4070 4068 
dft$driver queue _header 4032 4028 
dft$driver queue header fiags 4039 4033 
dft$driver_ queue pva_entries 4008 3995 
dft$driver queue _ pva_entry 4018 4009 
dft$driver queue rma_entries 4006 33994 
dft$driver_queue_rma_entry 4013 4007 
dftS$esm_base_addresses 3375 3968 4927 4941 
dft$esm_definition_table_ entry 43922 49193 4332 
dft$esm_pp_information 3930 3925 3926 
dftSinquiry message 4815 4806 4877 
dftSinquiry tracer 4820 4816 
dft$interrupt 4044 4034 
dft$Slifetime 4452 4448 
dftS$mainframe_set 1437 1387 1388 1546 1547 5280 5281 
10749 10754 10759 10766 10767 10779 
11338 11389 
dft$maximum_data_bytes 4959 4928 4942 
dft$monitor_io_types 4165 42093 
dft$p_allocated data _rma_list 4249 4161 
dft$p_command_ buffer 4287 4198 4199 
dft$p_data_rma_list 4236 4201 
dft$p_queue_interface_tabie 3963 3916 
adft$p_send_data 4416 4216 4217 
dftS$partner_status 43393 4146 
dftS$pp_element_reservations 5236 3934 
dft$pp_status 3937 3931 
* eX REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, Stsubscript, I:1/0 ref, 
REFERENCES OF ism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-0 
NQS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 
IDENTIFIER------- ee re rr er eee DEF DNED #°s ss9 6 s2 eons is eee = REFERENCES 
ON LINE 
dft$q_ interface directory entry 3914 3912 
dft$queve directory 3985 3970 
dft$queue directory, index 5243 33900 
dft$queue_ entry flags 4082 4071 4193 
dft$queue_ entry index 4396 339302 
dftS$queue entry location 38939 3883 
dft$queue entry type 4385 4203 
dft$queue_ index 4395 3901 
dft$queue_interface_ directory 3911 3909 
dft$queue_ interface table 3965 39363 
dft$request_buffer 4864 4860 
dftS$request buffer directory 4853 3967 
dft$request buffer entries 4868S 4866 
dft$request buffer entry 4874 4870 
dft$request buffer _ entry flags 4882 4875 
dftS$response_filags 4793 4785 
dft$response_parameter 4803 4787 
dft$retransmission_digit 4826 4822 
dft$rpc_ progress _ record 4427 4219 
dft$send_data_size 4415 4218 &224 &226 4227 4430 4431 
dft$send_parameter_size 4412 4435 
dft$server_iocb_error_condition 4557 4543 
dft$server_ lifetime 4448 4147 
dft$server_state 4380 4348 4383 
dft$side_door_ ports 4946 4940 
dft$transact ion_data 4168 . 4160 
dft$transaction_digit 4825 4821 
dft$transaction_ state 4494 4194 4501 4817 
dfv$file_ server _ debug enabled 5299 10747 
direction 8852 8876 8891 8908 
direction changed to_in 10521 8727 10581 
dispatch_control 7020 9405/M 10514/M 10841/M 10871/M 11034/M 11118 
11338/M 11389/M 11419/M 11600/M 
dispatching priority 6160 $722/M 
dmec$device_manager_error_code 1093 110 113 116 119 122 125 
134 137 140 143 146 149 
188 161 164 167 170 173 
182 185 188 191 194 1987 
206 209 212 215 218 221 
230 233 236 239 242 245 
254 257 260 263 266 269 
278 281 284 287 2906 233 
3902 305 308 311 314 317 
326 329 332 335 338 341 
350 353 356 359 362 365 
374 377 380 383 386 3883 
404 407 410 413 416 &19 
428 431 434 437 440 443 
452 455 458 461 464 467 
476 4793 482 4&5 4&8 491 
500 — 503 506 509 512 515 
**#* REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S subscript, 121/00 ref, 


8-21 13:33:34 


9403 1074 
1084060 1122 


Rz=read, Wewrite, 


8-21 13:33:34 


4436 


PAGE 195 


& 
1 


P=parameter 


PAGE 196. 


/M 11170/M 11262/M 


128 131 
152 155 
176 179 
200 203 
224 227 
248 251 
272 275 
296 239 
320 323 
344 347 
368 371 
392 &O1 
422 425 
446 &49 
470 473 
494 497 
518 521 


Reread, Wewrite, 


Psparameter 


REFERENCES OF 


NOS/VE js monitor mode job swapper 
JSPSSWAP_POLLING 
IDENTIFIER --*- eee rrr t ee ee tee DEFINED 
ON LINE 
dmc$fas_file allocated 764 
dmc$fas job _mode_work_required 765 
dmc$fas temp_reject 766 
amc$max_class_ordinal 7501 
_amc$max_login_table_ entries 7535 
‘dme$transient_error 296 
dmp$allocate_file space 5302 
dmp$recover_job_dm_tables 5322 
amp$set_fau_state 5314 
dmt$active_volume_table 7317 
amt$active_volume_table_entry 7319 
amt$avt_ lock 7334 
dmt$c lass 7492 
dmt$class_member 7493 
admt$disk_table_ status 7381 
dmt$file_allocation_status 763 
dmt$global_file_ name 4624 
dmt$internal_vsn 7516 
dmt$login_table_entry index 7530 
‘dmt$login_table_ sequence 7528 
dmt$mainframe_assigned 7523 
_amt$ms_active_vol_tabie_entry 7343 
amt$ms_avt_status 7375 
amtS$ms_volume_system_status 7378 
dmt$ms_volume_table_ status 7385 
amt$system_class 7494 
“amt$system_file_id 1486 
_adpcS$console_row_size 5340 
‘Gpe$top_line_message_size 5334 
adpp$display_error 5328 
apt$top_line_ message 8003 
fisw_ job shared _asid_changed 11440 
entry status 1355 


* es REFERENCE ABBREVIATIONS 


REFERENCES OF 


‘NGOS/VE js : monitor mode job Swapper 
JSPSSWAP_POLLING 


IDENTIFIER-------------------- DEFINED 
ON LINE 


entry updated 2162 
eoffset 3600 
eoi_ byte address 730 
eoi_ modified 813 
event_time $314 
event time 10439 
event time 10817 
event_time 10847 
event_time 11005 
event time 11076 
event_time 111793 
event time 11273 
event _time 11515 
existing entry 9870 
existing pfte p $918 
existing pFft i 9917 
¥1 8246 
#2 8247 
fde p 5345 
fde_p 5391 
fde_p §393 
fde_p S664 
fde_p 8806 
fde_ p 8806 
fde_p 8811 
fde _p $126 
fde_p $126 
fde_p 9136 
fde_p 9432 
fFde_p 9432 
fde_p 9445 
fde_p 9594 
fde_p 9594 
fde_p 9601 
fde_p 9843 
fde_p 9843 
fde_p 9861 
fde_p $861 
fde_p 9871 
fde_p 9919 
fde_p 10246 
fFde_p 10246 
*de_p 10246 
fde_p 160256 
fde_p 10710 
fde_p 10715 
fde_p 10880 


*** REFERENCE ABBREVIATIONS 


jsm$monitor_mode_job_swapper 


jsm$monitor mode_job_swapper 


emee ene ez ewe ew ee ew 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1,.0 89102 
REFERENCES 

§24 $27 
548 551 
572 575 
5936 599 
620 623 
644 647 
668 671 
695 698 
720 123 
746 749 

8828 

8833 

8837 

7498 

7530 7532 

838 1 8839/P 

8823 

9728 

9647 

7309 

7317 

7320 

7348 

7492 

7385S 

5303 8812 

4536 

7353 

7525 

7524 

7359 

7324 

7378 

7364 

7347 

7349 

1419 4208 

9435 

5334 

53293 8003 

$3960 10752 

7984 

11465 

5517 5522/M 

8361 8484 

8725 9117 

$336 S336/M 

11116 11116/M 

11308 11308/M 

11338/M 11338 
Memodify, 


1.0 89102 


REFERENCES 
11362 11362/M 
11389 11389 
11556 11558 
8886 9893 
§629/M 9634 
8830/M 
8831/M 
$405 $405 
10510 10512 
10841 10841 
10871 10871 
11034 11034 
11118 11118 
11262 11262 
11338 11338 
11600 11600 
9886/M 9887 
10173/M 10182 
10172/M 10173/S 
9072 10612 
9073 10613 
§367/M 5368 
5398/M 5398 
§398/P 5400/P 
5670 5674/M 
8822/P 8822/P 
8822/M 8822 
8822/P 8823/P 
9159/P 9159/P 
9159/M $159 
$159/P 9160/P 
9478/P 9478/P 
9478/M 9478 
9478/P 9481 
9627/P $627/P 
9627/M 8627 
9627/P 9628 
10056/M 10056 
10227/P 10227/P 
9904/P 9904/P 
9904/M 9904 
9904/P 9905/M 
10056/P 10057 
10365/P 10365/P 
10365/M 10365 
10368 10368/M 
10365/P 10367/P 
10729/M 10729 
107239 /P 10730 
190866/M 10966 
>: Msmodify, 


4538 


10757 


8309 
8553 
S9117/M 
9583 
11142 
11335 
11338/M 


Azattribute, 


11365 
11389/M 


9899/M 


11170 
11389 
9893 
10183 
10185/P 


10670 
10671 


&8830/M 


9482 
9628 


10227/M 


1O0227/P 


10370 


10731/P 
10985/M 


Azattribute, 


533 
557 
581 
605 
629 
653 
680 
704 
731 
755 


7354 


10762 


8321 

8564 

9326 
10447 
11142/M 
11336 
11354 


536 
560 
584 
608 
632 
656 
683 
7107 
734 
758 


7355 


8324 

8589s 

$329 
10447/M 
11168 
11338 
11357 


Szsubscript, I=1/9 


11369 
11389 


10021 


11170 
11389 
10187 
10186/P 


11124 
11125 


8831/M 


9486/P 


9629 
10227 


10228/M 


10985 


11369/M 
11389/M 


11419 


10188 


9647/P 


Stsubscript, I:1/0 


1989-08-21 


539 
563 
587 
611 
635 
659 
686 
710 
737 


7356 


8324 
8670 
9329 
19537 
11168 
11338 
11358 


ref, 


1989-08-21 


11371 
11389 


114193 


10189 


ref, 


13:33:34 PAGE 197 
542 545 
566 569 
590 593 
614 617 
638 641 
662 665 
683 692 
713 716 
740 743 
7357 7358 
/™M 8336 8347 
8721 8723 
/M $331 $331/M 
10537/M 10805 
/M 11207 11207/M 
11338/M 11338 
11360 11360/M 
R=read, Wewrite, P:parameter 


13:33:34 PAGE 198 
11373 11373/M 
11389/M 11491 
10199 10200 


Reread, Wewrite, P:sparameter 


REFERENCES OF jism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 199 

NOS/VE js : monitor mode job swapper 

JSPSSWAP_ POLLING 

IDENTIFIER<-<-<+ 25-2 ss ert eee ee DEFINED * 3 +< 45656 92's = <'5 REFERENCES 

ON LINE 

fde op 10885 10866/P 10967 10376 , 10985/P 10986 

file entry index 1219 §357 5398 8822 $159 9478 $627 $904 10056 
10227 10365 10729 10366 10985 

file hash 787 5368 5398 8822 $159 9478 $627 $904 10056 
10227 10365 10729 10966 10985 

file hash 1221 5356 5368 5398 5398 8822 8822 9159 $159 
9478 9478 9627 $627 $904 s904 10056 10056 
10227 10227 10365 10365 10728 10729 10966 1OS66 
10985 10985 

file status 8812 8824/P 8827 

flags 780 8831/M 

flush _am_pages_ to disk 9126 8372 9191. 

forward ijle_p 3749 $778/P 3773/M 

forward. Tink 2124 9772/M 9772 9774 $777 $778/P 9803/M 9810/M 11551 

forward. link 2814 9774/M 3788 9792 3807/M 9818 $822 11545 

found _Sva $916 10168 10169 

free swap file descriptor 9254 8532 9222 9302 9579 10418 10568 

free swapped jobs mm_resources $196 8577 8675 8702 $251 9558 10149 

fwd 2208 9540 9544 9630 9639 10048/M 10064/M 10084/M 10097/M 
10037 10113/M 

gfc$fde_ size 5384 $357 5398 8822 9159 9478 9627 $904 10056 
10227 1O365 10729 1OS66 10985 

gfc$fde table _base 5382 5357 $383 5398 8822 9159 9478 $627 $3904 
10056 10227 10365 10729 1O966 10985 

gfcS$Ffk_ catalog 859 871 

gfc$fk_job_local_file 861 870 

gfcS$fm_mass_ storage file 874 803 

gfc$fm_served_ file 875 806 10730 

gfcS$monitor_inter locks 5412 5399 8822 9159 $478 3627 $904 10227 10365 

gfc$ps_server_terminated 1211 10732 

gfc$ps_volume_unavai lable 1209 10732 

gfc$tr_ job 1229 5360 5398 S672 8822 9159 $478 $627 $304 
10056 10182 10227 103498 10364 10365 10366 10368 
10723 10966 10985 

gfcS$tr_ system 1229 §359 5338 8822 $159 9478 $627 9708 $715 
9904 10038 10056 10227 10363 10365 107298 10966 
10885 

gfc$tr_system_wait_recovery 1229 $709 9717 9303 10044 10728 

gfp$mtr_get_fde_ p 5343 $372 52398 8822 9158 9478 93627 9904 10056 
10227 10365 190729 10966 10885 

gfp$mtr_get_locked_ fde_p 5391 5403 8822 $159 9478 3627 9304 10227 10365 

gft$allocation_unit size 830 7932 

gftS$attach_count 835 783 784 

gft$fde flags 812 780 

gft$file _desc_entry_p 769 5345 9445 9601 9678 9919 10715 10885 

gftS$file_descriptor_entry 777 769 782 1196 

gftS$file_descriptor_index 844 1219 

gft$file_kind 855 786 867 

gft$file media 874 802 

gftS$locked file _desc_entry_p 1196 5270 5303 5315 §393 5469 S664 6372 8811 


**x REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, I:1/0 ref, Rtread, Wewrite, P=parameter 


REFERENCES OF jsm$monitor mode_job_swapper NOS/VE CYBIL/II 1.0 89162 1889-08-21 13:33:34 PAGE 200 

NOS/VE js : monitor mode job swapper 

JSPSSWAP_POLLING 

IDENTIFIER------ sree reer ween DEF INED-------e-e2+---e5 REFERENCES 

ON LINE 

8136 9871 10256 

agftSopen_count 904 785 920 

agft$page status 1204 5272 9449 10718 

oftS$queue status 915 735 

gftS$segment_lock_info 913 788 

gft$signature_lock 880 778 

gft$system_file_identifier 1218 1486 213933 5343 5391 S665 5895 6037 6188 
S676 $9324 

gft$table residence 1229 1220 5353 

gft$transfer_unit_size 841 793 

global_asids changed 10258 10295/M 10305 10313 

global_task_id 6149 8690/P 10406/P 

hash 5350 5356/M S363/M 

hash 5391 53938/M 5398/M 

hash 8806 8822/M 8822/M 

hash $126 9159/M 9159/M 

hash $432 9478/M 9478/M 

hash ; 9594 9627/M 9627/M 

hash $843 10086/M 10056/M 10227/M 10227/M 

hash 9861 $904/M 9904/M 

hash 10246 10365/M 10365/M 

hash 10710 10728S/M 10729/M 

hash 10880 10366/M 10966/M 10985/M 10985/M 

head 930 10126/M 

hung _task_in_job 1392 9961/M 

i 9314 9359/M S359 $359/S §$353/S $359/S 

i 11063 11065/M 11066 11067/S 11068/S 110639/S 

i 11076 11104/M 11104 11104/S 11104/S 11104/S 11166/M 11166 11166/S 
11166/S 11166/S 

1 11179 11201/M 11201 11201/S 11201/S 11201/S 

i 11273 11288/M 11299 11289/S 11299/S 11299/S 11338/M 11338 11338/S 
11338/S 11338/s 11389/M 11389 11389/S 11389/S 11389/Ss 

i 11477 11483 11485/s 11490/S 

i#fbuij ld adaptable array ptr 5457 8903 

i#program_error 5388 5369 5398 7215 8822 9159 $394 S478 9627 
9762 $829 9904 10056 10227 10365 10728 10811 
10966 10985 11248 11309 11323 11338 11341 11389 
11393 

i#reai_memory address 5465 8306 10332 

id 3803 7214 7272 7276/M $8387 $387/M 9394 9754 $754/™M 
9762 $829 10803 10803/M 10811 11241 11241/M 11248 
11307 11307/M 11309 11315 1131S5/M 11323 11333 11333/M 
11338 11338/M 11338 11341 11352 11352/M 11389 11389/M 
11388 11333 

ignore_aus obtained 8813 8824/P 

ignore_over flow 8814 8824/P 

ijl_entry 2150 8916/M 9466/M 9954 

ijl_inner_loop 11487 11487 11506 

ijl_ordinal 2186 5672 $046 $O060/M $158 $615 10077 10343 10368 

xe REFERENCE ABBREVIATIONS Memodify, Atattribute, S=ssubscript, It1/0 ref, Rtread, Wewrite, P2parameter 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 


NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 
IDENTIFIER~--°---r er errr ert eee DEFINED------err-- tte ee REFERENCES 
ON LINE 
1jl_oerdinal 2834 11292 
‘ijl_eordinal 3047 9474/M 
ijl_ordinal 3882 9454/M 
jjl_ordinal S586 5590/S 5590/S 
ijl_ordinal 7639 10395 
ijl_ordinal 8263 8324/P 8324/P 8324/P 
*jl_ordinal 8263 8532/P 
ijl_erdinal 8264 8324/P 8338/P 8341/P 
&8449/P 8485/P 8498/P 
8568/P 8577/P 8S579/P 
8641/P 8666/P 8675/P 
8702/P 8704/P 8727/P 
ijl_ordinal 8851 8877/P 
ijl_ordinal 8986 $048 9060 9064/P 
ijl_ordinal 9033 8117/P $117/P 9117/P 
ijl_ordinal 9094 9117/P 
ijl_ordinal $127 9148/P 9158 
ijl_ordina}l 9196 9222/P 
ijl_ordinal 9198 9222/P 
ijl_ordinal 9256 $271/P 
1jl_ordinal $315 9334/P §$348/P 3350/P 
tjl_ordinal 9433 9454 8461/P 9474 
ijl_ordinal 9553 9558/P §560/P 9561/P 
ijl_ordinal 9567 9579/P 
ijl_ordinal 9568 9578/P 9579/P 9584/P 
ijl_ordinal gs95 9615 
ijl_ordinal 9658 9684/S 9684/S 
ijl_ordinal 9660 9686/P 
ijl_ordinal $735 8771/S $771/S 9778/S 
ijl_ordinal $736 $803 $807 $811 
ijl_ordinal 9844 10077 10149/P 10231/P 
ijl_ordinal 10246 10418/P 
ijl_ordinal 10247 10285/P 10324/P 190349 
10423/P 
ijl_ordinal 10430 10445/P 10468/P 10475/P 
ijl_ordinal 10521 10837/P 10537/P 10537/P 
1jl_ordinal 10521 10568/P 
ijl_ordinal 10522 10537/P 10556/P 10568/P 
ijl_ordinal 10585 105892/P 10605/P 10606/P 
ijl_ordinal 10634 10641/P 10649/P 10653/P 
ijl_ordinal 10691 10698/P 
ijl_ordinal 10712 10773/P 
Aji ordinal 10817 10831/S 10831/S 
ijl_ordinal 10818 10831/P 
ijl_ordinal 10886 10995/M 10996 10996 
ijl_ordinal 11005 11024/S 11024/S 
1jl_ordinal 11006 11024/P 11026/P 11031/P 
ijl_ordinal 11076 11100/S 11100/S 
ijl_ordinal 11077 11100/P 11104/P 11112/P 
ijl_ordinal 111789 11203/S 11203/S 
ijl_ordinal 11180 11201/P 11203/P 11258/P 
* * * REFERENCE ABBREVIATIONS M=modify, Atattribute, 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 

NOS/VE js : monitor mode job swapper 

JSPSSWAP_ POLLING 

IDENTIFIER------ esc ener cece DEFINED-------+e-e-eeree REFERENCES 

ON LINE 

ijl_ordinal 11273 1129R/S 11293/S 

ijl_ordinal 11273 1137 :>/P 11338/P 11338/P 
1138S/P 11389/P 11389/P 

ij?l_ordinal 11285 112982/M 11293/P 11299/P 
11405/P 11406/P 

ijl_ordinal 115175 11550/S 11550/S 

ijl_ordinal 11528 11545/M 11549 11549 

ijle_p 5344 5361 

ijle_p 5391 5398 

ijle_p 5392 5398/P 

ijle_p 5511 5517 5522/M 5526/P 

ijle_p 5587 5590/M 

ijle_p 8263 8324/P 8324/P 8324/P 
8324 8324/M 8324 
8324 8324/P 

1jle_p 8263 8324 8324/M 8324/P 

ijle_p 8263 8328 8328/M 8328 
8431 8431/M 8431 

ijle_p 8263 8532 8532/P 8532 
8532 8532/M 

ijle_p 8265 8296 8302 8305 
8328/P &331 8336 
8355/P 8361 8362/P 
8378 8379/P 8382/P 
8396 8398/M 83939 
8424 8425 8426 
8435/P 8440/P 8448/P 
8476/M 8477/P 8483 
8490/P 8496 8497 
8509/P 8515/P 8520 
8536/P 8542 8542 
8554/P 8564 8565/M 
8578/P 8579/P 8589 
8619/M 8620/P 8623/P 
8636/P 8637/P 8641/P 
8663/M 8666/P 8670 
8692/P 8693/P 8696/P 
8705/P 8718 8721 
8731/P 8732/M 8737 

ijle_p 8767 8775 8776/M 8778 

ijle_p 8806 8822/P 

ijle_p 8806 8822 

ijle_p 8807 8819 8820 8821 

ijle_p 8850 8871 8872 8874 
8915/M 8315 8316/M 

ijle_p 8328 89406 8953/M 

ijle op 83606 8363 &8S70/M 8371 

ijle_p 8987 90093 $010 9044 
9080/P 9083/P 9084/P 

ijle_p 9093 9117/P 9117/P 9117/P 
$117 9117/M $117 

*** REFERENCE ABBREVIATIONS Memodify, Azattribute, 


8348/P 
8505/P 
8596/P 
8684/P 


$078/P 


9352/P 


9778/S 


10367/P 


10576/P 
10628/P 
10659/P 


117117/°P 


11261/P 


S=subscr 


—_ 


1338/P 
1389/P 
1302/P 


—_ 


mb 


1550/P 


5530/P 


8324 
8324/P 


8324/P 
8328/M 
8431 

8532/M 


8309 
8338/P 
8366/P 
8385/M 
8400/P 
8430 
8449/P 
8483 
8498/P 
8521/M 
8544 
8567 
8595 
8624/P 
8645/P 
8675/P 
8697/P 
8723 
8738/P 
87S37/M 


8822/P 
8877/P 
83916 


&8974/M 
$048 


$117 
9117/P 


Sssubscript, 


ipt, 


Izs1I1/0 ref, 


Reread, Wewrite, 


1989-08-21 13:33:34 
&8362/P 8366/P 8372/P 8440/P 
8527/P 8532/P 8546/P &8554/P 
&8620/P 8624/P 8625/P 8636/P 
8692/P 8697/P &8698/P 8701/P 
8$080/P 
9359/P $370/P 
9802/5 $802/S 
10397/P 10404/P 10412/P 10418/P 
10664/P 10676/P 
11139/P 11166/P 11169/P 
T2=I/0O ref, Rtread, Wewrite, P:zp 
1989-08-21 13:33:34 
11338/P 11338/P 11389/P 11389/P 
11310/P 11337/P 11388/P 11401/P 
11885/M 11590/P 115936/M 
8324 8324/M 8324 8324 
8324 8324/P 8324/P 8324/P 
8328 8328 8431 8431/M 
8532/P 8532/P 8532/P 8532/M 
8321 8323/M 8324/P 8327/P 
8341/P 8342/P 8347 8348/P 
8367/P &8372/P 8373/P 8374/P 
8386/P 8394 8394 8396 
8403/M 8404/P 8412/P 8423 
8430 8431/P 8432/P 8433/P 
8453 8455/P 8461/P 8472/P 
8484 8485/P 8489 84893 
8498/P 8499/P 8504/M &8505/P 
8522 8524/P 8527/P 8532/P 
8544 8S545/P 8546/P 8553 
- 8567 8568/P 8572/P 8577/P 
8596/P 8608 8611/M 8612/P 
&8628/P 8634 8635 8636/P 
8651/P 8659 8660 8662/P 
8683/P 868a/P 8685/P 8692/P 
8699/P 8701/P &702/P &8703/P 
8725 8727/P 8730 8731/P 
8738/P 87339/M 
8798/M 
8822/P 8829/M 
8892/P 8902 8907/M 8913 
8918/P 
89377 89378 
9051/M $071 9078/P $079/P 
9117 $117/M 9117 9117 
9117 9117/P $117/P g9117/P 


PAGE 201 


arameter 


PAGE 202 


P=parameter 


REFERENCES OF ism$monitor_ mode job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 263 

NOS/VE js : monitor mode job swapper 

JSPSSWAP POLLING 

IDENTIFIER: -- +3 ree eee ee cet cee DEFINED------+--2s2ereeee REFERENCES 

ON LINE 

9117 9117/P 

ijie_p 9093 9117 9117/M 8$117/P 8$117/P 

ijle_p goss 9111/P 9114 $117/P 

ijle_p 9126 $159/P 

ijle_p 9126 9159 

ijle_p 9126 9182 $182/M $182 $182/M 9182 $182 

ijle_p $128 9148/P 9153/P 9174/P $177/M 9178 9180 9181 9182/P 
9185 

ijle op $186 $222 9222/P 9222 $222/M 9222/P 9222/P 9222/P 9222/M 
9222 9222/M 

ijle_p 9197 9221 $222/P $226 8230/P $237/P 9244/P 

ijle_p $255 9269 §$271/P $273 $9275/M 9278/P 9278/P 9282/P 9288/M 
$294 3300/M 

ijle_p 9314 9329 $329/M $329/P $329/P $331 $331/M §9331/P 9331/P 
8336 9336/M 8336/P $336/P 

ijle_p 9316 9326 9329/P $331/P $333 9334/P 9336/P 9347 9348/P 
$349 3350/P $351 9352/P 9361/M 9362/M 9363 9365 
9368 9370/P 9377 $380/M 8381/M $385/M 9388/S 9389/S 
9390 9390 $391/S $392/S 9393 9396/P 9396/P §8398/M 
$403/M 8404/P 9409/P 

ijle_p 9432 9478/P 

ijle_p 9432 9478 

ijle_p 9434 9461/P 9463 9465/M 9466/M S466 9468 9478/P 9496/P 
gs508/M $509/M $510 9517/M 

ijle_p 9525 9540 9544 9547/M 

ijle_p 9554 s558/P 9559/P 9560/P 9562/P 

ijle_p 9567 9579 9579/P $579 9579/M 9579/P 9579/P 8579/P 9579/M 
9579 3573/M 

ijle_p 9569 9$572/P 9574 9574 $576 9577 9578/P $579/P $583 
9584/P 

ijle_p 9594 9627/P 

ijle_p 9594 9627 

ijle op 9596 8625 9627/P 

ijle_p 9658 9684/M 

ijle_p 9659 9686/P 9$728/P 

ijle_p $735 $771/M 9778/M §802/M 

ijle_p 9737 $757 3770 9771/P 9772 9774 97°77 8778/P 3779 
9781 9804/M S8O06/M 9810/M 9827/M 

ijle_p 9843 10056 10227 

ijle_p 9843 10227/P 

ijle_p 9845 9947/P 9954 9359 $961/M 9962 §9963/M 9965/M 9374 
9380 9988 10001 10003/P 10049/P 10056/P 10070/P 10085/P 
10149/P 10154/P 10214 10214 10217 10227/P 10231/P 

ijle_p 9861 9904/P 

ijle_p 9861 $904 

ijle_p 9866 s904/P 

ijle_p 10246 10365/P 

ijle_p 10246 10365 

ijle_p 10246 10418 10418/P 10418 10418/M 10418/P 10418/P 10418/P 10418/M 
10418 10418/M 

ijle_p 10248 10278 10285/P 10294 10296 10297 10324/P 1060358 10358/P 

*** REFERENCE ABBREVIATIONS Mtmodify, Atattribute, Sssubscript, 11/0 ref, R=read, Wtwrite, P*parameter 

REFERENCES OF jism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 204 

NOS/VE js : monitor mode job swapper 

JSPSSWAP_ POLLING 

IDENTIFIER-<+-++---- ee ete tee eee DEFINED-----+++-2 2-2-5 REFERENCES 

ON LINE 

10365/P 10396 10397/P 190402 104803/M 10404/P 10406/P 10411 
10412/P 10417 10418/P 10423/P 10423/P 

ijle_p 104295 10447 10447/™M 10447/P 10447/P 

ijle_p 10431 10445/P 10446/P 10447/P 10451 10453 10454/M 10455 10456 
10458 10462/M 10467 10468/P 10474 10475/P 10479/P 10486/P 
10491 10482/P 

ijle_p 10521 10537/P 10537/P 10537/P 10537 10537 10537/M 10537 10537 
10537 10537/M 10537 10537/P 10537 10537/P 10537/P 1tTO537/P 
10537 10537/P 

ijle_p 10521 10537 10537/M 10537/P 10537/P 

ijle_p 10521 10568 10568/P 10568 10568/M 10568/P 10568/P 10568/P 10568/M 
10868 10568/M 

ijle op 10523 10533 10537/P 10538/M 10555/M 10556/P 10567/M 10568/P 108573 
10573 10574/M 10575/M 10576/P 

ijle_p 10586 10592/P 10596 10597 10583 10599 10602 10602 10604/P 
10605/P 10611 10616 10618 10619 10620 10621 10623 
10623 10628/P 10628/P 

1jle_p 10635 10641/P 10645 10648 10648 10649/P 10650 10652 10652 
10653/P 10654 10655 10658 10658 10659/P 10660/P 106693 
10676/P 

ijle_p 10690 10698/P 

ijle_p 10710 10729 

ijle_p 10711 10721 10729/P 10748 10749 10751 10754 10756 10759 
10761 10766 10767 10773/P 10773/P 10774/P 10779 /M 

ijle_p 10817 10831/M 

ijle_p 10828 10831/P 19833 10834/M 10835/M 10840/M 

ijle_p 10848 10858/M 190860 10862/M 10864/M 10866/M 

ijle_p 10880 10966 10985 

ijle_p 10881 10900 10901 10904 10906 10907 109814/P 10825/P 10926/P 
10831 10337 108338/P 10941/M 10943 10953/M 109857/P 108364 
10966/P 10977 10983 10985/P 10891 108985/S 

ijle op 11005 11024/M 

ijle_p 11019 11024/P 11026/P 11031/P 

ijle_p 11076 11100/M 

ijle_p 11076 11116 11116/M 11116/P 11116/P 11142 11142/M 11142/P 11142/P 
11168 11168/M 11168/P 11168/P 

ijle_p 11094 11100/P 11103 11112/P 11116/P 11117/P 11123 11129 11130 
11134 11139/P 11140/P 11142/P 117146 11148 11149/M 11150 
11151 11153 11157/M 11161/P 11164/P 11168/P 11169/P 

ijle_p 11179 11203/M 

ijle_p 11179 11207 11207/M 11207/P 11207/P 

ijle op 11179 11236 11236/M 11236 11236/M 11236 11236 

ijle_p 11196 11203/P 11204 11207/P 11213 11215/M 11216/M 11221/M 11225/M 
11231/P 11236/P 11239 11242/S 11243/S 11244 11244 11245/S 
11246/S 11247 11257/P 11258/P 11260/P 11261/P 

ijle_p 11273 11283/M 

ijle_p 11273 11308 11308/M 11308/P 14308/P 11338 11338/M 11338/P 11338/P 
11338 11338/M 11338/P 11338/P 11338 11338/M 11338/P 11338/P 
11360 11360/M 11360/P 11360/P 11362 11362/M 11362/P 11362/P 
11369 11369/M 11369/P 11369/P 11373 11373/M 11373/P 11373/P 
11389 11389/M 11389/P 11389/P 11389 11389/M 11389/P 11389/P 

* xe REFERENCE ABBREVIATIONS M=modify, Atattribute, S=subscript, I=I1/0 ref, Rtread, Wewrite, Psparameter 


%EFERENCES OF ism$monitor_mode_job_swapper NOS/VE CYBIL/II 
NOS/VE js monitor mode job swapper 
JSPSSWAP_POLLING 
PDENTIP LER AS ee a9 ee eee 6's *“*DEFINED-c-e-s-+-> “*rc->* “REFERENCES 
ON LINE 
11389 
ijle_p 11273 11338 
11338 
11338 
11338 
11338/M 
11389/P 
113839/M 
11389/M 
11389/P 
ijle_p 11284 11293/P 
11321/8 
11362/P 
11397 
ijle_p 11436 11444/M 
11455/M 
ijle_p 11478 11490/M 
11502/M 
.ijle_p 11515 11550/M 
ijle_p 11827 11550/P 
11S73/P 
1jlo S666 5672 
ijlo 9314 $359 
ijlo 10246 10368 
ijlo 11053 $359/M 
ijlo 11060 11068 
ijlo 11076 11104 
i jlo 11179 11201 
ijlo 11273 112998 
in_use 2187 5671 
index 891 10406/P 
index _p 7683 5590 
11203 
inhibit access work 1387 10748 
inhibit _access_work 1546 11498 
inhibit swap count 1361 8399 
“initial ortc 10887 103801/M 
initiate swap_io 9476 9476 
initiate swapout_ io 8288 8333/M 
initiate swapout_io 111897 11251/M 
io_control_informat ion 9438 9480 
io error 2229 9645 
io function 8436 9456 
io id 9137 $153/M 
io_id 9446 9453/M 
ioc$allocate 4512 3888 
ioc$allocate file space 2254 8378 
foc$disk_min_ecc 2370 2371 
ioc$error_on_init 2256 $645 
ioc$max_unit_ number 4834 4837 
-joc$no_error 2254 8520 
*** REFERENCE ABBREVIATIONS M=modi 


REFERENCES OF jsm$monitor _mode_job_swapper NOS/VE CYBIL/I1 
‘NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 
IDENT IF PER = S26 2s crete = cle ene wie sis DEF INEDc scree tet ete e eee REFERENCES 
ON LINE 
ioc$read_ahead_on_server 4512 3890 
» lec$read_for_server 4511 3886 
ioc$read_from_cilient 4511 3887 
ioc$read_page 4506 3883 
iec$st_errors 2373 2380 
2388 
2396 
2404 
iec$swap_in 4507 3881 
ioc$swap_out 4507 3881 
ioc$tape_min_ecc 2372 2373 
ioc$unit_down_on_init 2256 9645 
iec$unrecovered_error_unit_down 2255 8504 
iocS$write for_server 4512 3886 
ioc$write_ page 4506 3883 
ioc$write to_client 4512 3887 
ioe$unit disabled 2402 8502 
iop$pager_io 5468 $486 
FiotSinterrupt 4901 4046 
iotS$io_error 2254 1420 
iotS$io_ function 4506 3880 
iot$ logical _unit 4837 4788 
iet$port number 4906 4903 
iot$pp_number 4896 3987 
iot$transfer count 6326 6314 
ud 8254 8256 
j 8263 8315 
8503 
8674 
| &8O6 8825 
j 8985 9026 
j $093 9117 
| 9126 9161 
j 9196 $223 
j $314 S366 
j 9432 9488 
j 9524 9538 
j 9594 9616 
j 9843 10025 
é 10123 
10201 
j $861 83888 
j 10246 10284 
10376 
j 10429 10460 
j 10521 10536 
J 10584 10595 
j 10633 10644 
j 10797 10806 
Jj 10880 10810 


*#** REFERENCE ABBREVIATIONS : 


Memodify, 


1.0 89102 


11389/M 
11338/P 
11338/P 
11338/P 
11338 
11338/P 
11389 
11389 
11389/S 
11389/P 
11302/P 
11335 
11363/M 
11400/M 
11444 
11456 
11491 
11502 


11551 
11575/P 


11068/M 
11166 


11338 
$054 


9684 
11283 
10754 


10943 
9490 
8340 

11286 
9486/P 
9645 
9$487/P 
9160/P 
9454/M 


8385 
2379 


8659 


fy, 


1.0 89102 


2381 
2389 
2397 
8636/P 
8498/P 
8522 
9160/P 
86393 
2229 
4207 
7322 


38388 


10913 


1389/P 
1338/P 
1338 
1338 
1338/8 
1338/P 
1389/P 
1389 
13839/S 
1389/M 
1308/P 
1336 
1365 
1401/P 
1446 
1458 
1492/M 
1502 


ee wee eee ee eee eee 


_ 


1553 
1583 


= 


—_ 


1104/M 


ome 


1389 
10055 


9771 
1485 
O767 


—_— —_ 


9493 


9492 
9495 


9487/P 


11396 


Azattribute, 


2382 
2390 
2398 


9456 


8660 


9504 


5473 


8324 
8526 


8838 
93049 


$186 
$239 


S636 
10042 
10148 


$895 
10303 
10383 


1055060 


10928 


Atattribute, 


11389/P 
11338 
11338/P 
11338/M 
11338/S 
11389 
1389 
1389 
1389 
1389/M 
1310/P 
1337/P 
1369/P 
1405/P 
1447 
1459/M 
1492 


ee ee ee ed) 


_ 


1556 
1584 


—_ 


_— 


1166/M 


10078 


9778 
11490 
10773/P 


S=subscript, 


2383 
239 1 
2399 


s495 


$509 


69374 


8337 
8555 


$9053 


$246 


S646 
10051 
190153 


10306 


10553 


1082S 


Szesubscript, 


1889-08-21 13:33:34 PAGE 205 

11338/P 11338/P 11338 11338/P 
11338/M 11338/M 11338 11338 
11338/M 11338/M 11338/S 11338/S 
11338 11338/P 11338/P 11338/M 
11389/P 11389/P 11389 11389/P 
11389/P 11389 11389/P 11389 /M 
11389/P 11389 11389/M 11389/M 
11389 11389/S 11389/S 11389 
11389/P 11389/P 
11316/S 11317/S 11318 11320/S 
11354 11357 11358 11360/P 
11371 11373/P 11388/P 11396/M 
11406/P 
11448/M 11443 11453 11454 
11460 11463 11465/M 11465 
11495/M 11495 114937/M 11497 
11558 11560 11569/P 11571/P 
11590/P 
11201/M 11299 /M 11338/M 11389/M 
10032 10348 10368 
9802 10831 11024 111600 
11550 
11497/M 11437 11502/M 11502 

lsIl/O ref, Reread, Wewrite, P=parameter 

1989-08-21 13:33:34 PAGE 206 

2384 2385 2386 2387 
2392 2333 2394 2395 
2400 2401 2402 2403 
9436 
8349 8428 8447 84382 
8597 8640 8661 8665 
gsos5s 9066 $082 
10059 10066 10073 10083 
10189 10184 10190 10132 
16328 10338 10355 10361 
10566 
10844 

IsI/O ref, R=read, Wtwrite, P2sparameter 


REFERENCES OF ism$monitor_ mode_job_swapper NOS/VE CYBIL/II 1.0 88102 
NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 
IDENTIFIER----°-+-+----- oe Sei syei ae “DEFINED------er ee ere ene “REFERENCES 
ON LINE 
j 11076 11105 11115 
j 11179 11205 
j 11273 11300 11312 
j 11435 11442 11452 
j 11479 11488 11490/S 
ij 11515 11568 
jeb_p 8862 8912/M 8913/M 
jcb_p 9105 9114/M 9$115/M 
jcb_p 9447 9467/M 8468/M 
jeb_p 10888 10900/M 10812 
jcb p 11095 11134/M 11135/M 
if_asid $320 3988/™M 9389/P 
if_asid_changed $321 $381/M 190004/M 
if aste_p $922 $390/M $392/M 
jf asti $9323 $989/P gs98s0/Ss 
if _asti 10259 10359/P 1O360 
jf _sfid $924 9991/M $332 
jmc$detached_job_wait_t ime_max 1290 1287 
jmc$dsw_adjust_cpu_selections 1538 10396 
jmc$dsw_io_error while swapped 1538 8324 $117 
jmc$dsw_job_asid_changed 1536 10297 
imc$dsw_job_recovery 1535 $048 9980 
imc$dsw_job_shared_asid_changed 1536 8324 9117 
jmc$dsw_update debug lists 1535 10402 
jJmc$dsw_update_job_task_enviro 1537 8324 $117 
jmcS$dsw_update_server_files 1537 10411 11494 
jmc$examine_swapin_queue 2605 11390/P 
jmc$highest_det_job_wait_time 1300 1290 1301 
jmc$highest_prio_age_ interval 6256 6247 6257 
imec$nhighest service accumulator 1934 1935 
jime$highest_service_factor_valu 6280 6273 
imc$highest_working set _size 2327 2318 2328 
jmcSies_entry_ free 1709 11491 
jmc$ies_job_damaged 1717 $331/P 11338/P 
jimc$ies_job_in_memory 1712 8324/P 9117/P 
jmc$ies_job_swapped 1714 1723 $336/P 
jmc$ies_operator_ force out 1715 $329/P 11338/P 
jmc$ies_swapin_in_progress 1713 1722 5524 
8324 $117 
$329 $331 
$336 $340 
10537 10537 
11142 11142 
11168 11207 
11308 11308 
11338 11338 
11357 11360 
11362 11369 
11373 113893 
11389 11389 
jmc$ies_swapped_in 1722 83093 8670 
* * * REFERENCE ABBREVIATIONS Memodify, 


REFERENCES OF 


NOS/VE js 
_SJSPSSWAP_POLLING 


IDENTIFIER----------- see eeee ts) 
0 
jmc$ies_swapped_out 


jme$ies system_force_ out 
jmc$iss_allocate_sfd 
jmc$iss_allocate swap_file 
jmc$iss_executing 


jmc$iss_f lush_am_pages 
jimc$iss_free_swapped_memory 
jmc$iss_idie_tasks_initiated 
jmc$iss_initiate swapout_io 
jmc$iss_job_allocate_swap_file 
jimc$iss_job_idie_tasks_compiete 
jmcS$iss_job_io_complete 
jme$iss_null 
imc$iss_swapin_io_complete 
jmc$iss_swapin_io_initiated 
jmc$iss_swapin_requested 
jmc$iss_swapin_resource_claimed 
jimc$iss_swapout_ complete 


jmc$iss_swapout_io_complete 
imcS$iss_swapout_io_initiated 
imc$iss_swapped_io_cannot_init 


jmcS$iss_swapped_io_complete 
jmc$iss_swapped_no_io 


jmc$iss_wait_allocate_sfd 
jmcSiss_wait_allocate swap_file 
imc$iss_wait_job_io_complete 
jimc$Siss_wait_swapin_io_init 
imc$iss_wait_swapout_io_init 
jmc$keyword offset maximum 
jmc$k j1_maximum_entries 
jmc$ko1l_maximum_entries 

jmc$ lock_ajl 


jmc$max_active_ jobs 
jmc$max_ajil_ord 
jmc$max_dispatching control 
jmc$max_dispatching priority 
jmc$max_ijl_entries 
jmc$max_ijl_index_count 
jmc$maximum_job_classes 
jmc$maximum_job_count 
jmc$maximum_output_count 
jmc$maximum_service classes 
jmc$min_dispatching contro! 


*xee 


jism$monitor_mode_job_swapper 


monitor mode job swapper 


EFINED----------+--- ~-REFERENCES 
N LINE 
1723 8321 
8721 
1716 11365 
1739 8435/P 
1735 8374/P 
1728 8307 
11389 
1732 8355/P 
1746 8536/P 
1729 1756 
1741 8477/P 
1733 8386/P 
1730 8319 
1737 8404/P 
1727 8323 
1754 1787 
1753 8651/P 
1750 1787 
1751 8628/P 
1749 1786 
$559/P 
1744 8518 
1743 8515/P 
1740 1767 
11458 
1745 8545/P 
11389 
1731 1766 
11561 
1738 8455/P 
1734 8382/P 
1736 8400/P 
1752 &8645/P 
1742 8509/P 
1317 2319 
1507 1500 
1517 1502 
5491 8532/P 
$222/P 
10418/P 
1498 6229 
1499 1492 
1673 1677 
1535 1555 
1339 2815 
1340 7681 
1864 1867 
1514 1507 
1824 1517 
1952 1955 
1672 1676 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


Mzemodify, 


1.0 89102 


—- 
-_ 
a 
o 
ome 


11463 
8342/P 


8461/P 
10548 
10548 
11574 
10565 

6248 

1501 


8532/P 
$271/P 
10568/P 
6237 
1498 


1558 


11155 


11338 
11466 


$115 


10912 
11135 
10003/P 
10156/M 
10003/P 
10003/P 


10227/P 


10474 


10278 
102396 


10467 


2330 


11362/P 
10447/P 
11207/P 
11360/P 
5525 
$117 
$331 
10447 
10805 
11142 
11207 
11336 
11338 
11360 
11369 
11389 
11389 
8723 


Azsattribute, 


8347 
9583 


8490/P 
8433/P 
9117/P 


8370 
8575 
10535 
8524/P 
10547 
10834 
10862 
8737 
8675/P 
11584 
8617 
8662/P 
8587 
11389 
10864 
10654 
$347 


8571 
11562 
8359 


10549 
11570 
10596 


10655 
1886 
&8877/P 
$282/P 

10568/P 
6238 
2410 


1559 


Arattribute, 


11167 


11388 


10814/P 


10139 
190226 


10158/M 


10537 


10491 


10537 


2332 


11369/P 
10537/P 
11338/P 


S=subscript, 


8361 
11556 


11454 
10616 
$365 
11260/P 
190833 
11573/P 
11398 
11338/P 
8739 
8702/P 


$226 
8623/P 
11562 


10863 
9572/P 


9233 
10604/P 
10551 
10620 


11572 


8892/P 
9461/P 


Sssubscript, 
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113993 11404 
10922 10925/P 10938/P 
10157/M 
10228 
10537 11440 
2334 
11373/P 11389/P 
11142/P 11335 11354 
11358 11389/P 
11389/P 
5529 8324 8324 8324 
9117 9329 93293 9329 
9331 9336 9336 $8336 
10447 10447 10537 10537 
11116 11116 11116 11116 
11168/P 11168 11168 11168 
11207 11308/P 11308 11308 
11338 11338 11338 11338 
11338 11338 11338 11338 
11360 11362 11362 11362 
11369 11373 11373 11373 
113898 11389 11389 11389 
11389 11388 

Iz=1/O0 ref, Reread, Wewrite, Ptparameter 


8484 


11569/P 
11400 
10446/P 
11561 


11338/P 


11389/P 
10538 
8730 


11575/P 
8683/P 


10645 
$349 

10660/P 

10537 


10861 


8918/P 
9496/P 


Is1/0 ref, 


1989-08-21 


(8553 


11447 
10537/P 


11389/P 


11561 


10555 
9558/P 


8696/P 


11338 

$625 
11103 
10621 


11453 


$148/P 
9579/P 


13:33:34 PAGE 208 
8564 8589S 
11571/P 
11140/P 11338 
10575 11583 
10149/P 10866 
8703/P $351 
11389 11403 
10650 11338 
11257/P 11446 
11566 
9174/P $222/P 
$579/P 10418/P 


Reread, W:write, 


P=par ameter 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 898102 


NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 


IDENTIFIER <*----- eer rer ree DEFINED-----+---5- rere e REFERENCES 
ON LINE 
jmc$min_ecc 2430 2431 2438 
jmc$min_ece_sch 2438 2439 2441 2443 
2455 2457 2459 
2471 2473 2478 
2497 2500 2503 
2523 2526 2529 
2549 2582 2556 
2578 2581 2584 
jmc$needed_memory_avai lable 2607 5560/S 5562/S 
jmc$null_ajl_ordinal 2410 8532 9222 9269 
jmc$null_service_ class 1945 1946 
jmc$priority_aging interval_max 6247 6244 
jmc$priority_p1 1609 1556 7185 
jmc$priority_p10 1618 1557 2417 2421 
imc$priority pit 1613 2418 2420 
‘jmc$priority p12 1620 2419 
jime$priority p13 1621 2422 
jmc$priority p14 1622 1557 7185 
_gme$priority ps 1616 1556 
jmc$priority p9 1617 2425 
jmc$priority system_job 2417 9722 
jmc$required_ offset 1315 2333 
' jmc$reserved_ajis 1503 1498 
jmc$restart_on_abort 1915 9962 
jmc$restart_on_recovery 1919 $963 
jmc$service_accumulator_maximum 1926 1923 
jmc$service_factor value_max 6273 6270 
jmc$sr_job_damaged 1966 9330 11338 11363 
_dimec$sr_operator_ request 1959 9328 11338 11359 
b jmc$swapping_ajl 5490 8327/P 8685/P 8699/P 
10641/P 11112/P 11231/P 
imc$Ssystem_default_offset 1316 1317 2335 
jmc$system_supplied_name_size 2108 2105 
imc$terminate_on_recovery 1919 S965 
jmcS$unlimited_ offset 1313 1291 1302 1936 
imc$unspecified_offset 1314 2331 
. Jjmc$working set_size_maximum 2318 2315 
jme$ job_cant_be_ swapped 2443 11355/P 
jme$ job_dead_cannot_swap 2461 11367/P 
jme$ job_in_ready_task_state 2578 11383/P 
jmpSactivate_job_mode_swapper 5479 8387 8413 9587 
jmp$assign_aji_entry 5480 8532 8877 9064 
; 10418 10868 10592 
impS$assign_aji_with_lock 5494 11112 
jmp$change_ijl_entry_status 5510 5533 8324 9117 
P1116 11142 11168 
11360 11362 11369 
jmp$Scheck_scheduler_memory wait 5535 S566 
imp$decrement_swapped_job_count 5569 5530 * 8324 9117 
1117196 11142 11168 
11360 11362 113683 


KE REFERENCE ABBREVIATIONS : Memodify, Atattribute, 


REFERENCES OF ism$monitor_mode_job_Swapper NOS/VE CYBIL/II 1.0 89102 


\ 


‘NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 


_IDENTIFIER--- ++ ee tee rr etree eee DEFINED---- eee rr ere ee ee REFERENCES 
ON LINE 
jmp$free_ajl_entry 5573 8327 8532 8685 
a 9174 9222 §282 
jimp$Sfree_ajl_with_lock 5580 11231 
jmp$get_ijle_p 5586 5592 9684 9771 
11203 11293 11550 
jmp$ increment _swapped_job_count 5537 5526 8324 9117 
11116 11142 11168 
11360 11362 11369 
jimp$recognize_job_dead 5601 8704 9561 
jimp$reset_job_to_swapped_out S606 8625 8698 10606 
jmp$set_entry_ status _to_rt 5611 $334 11338 11389 
imp$set_scheduler_event 5618 11390 
imp$set_scheduler_memory event 5556 5563 
jmt$act ive_job_1list 7645 7623 
jmtSactive_job_iist_entry 7637 7645 
imt$ajil_ordinal 1492 1356 4206 5290 
7757 8861 83998 
11093 
jimt$delayed_swapin_work 1539 1386 1543 9398 
11440 
imt$delayed_swapin_work_record 1842 2841 11474 
jimt$detached_job_wait_time 1287 1272 
jmt$dispatching control 1643 6212 
‘jmt$dispatching control_index 1676 1633 1643 
jmt$dispatching controls 1646 1644 
imt$dispatching priority 1555 1368 1634 1635 
jmt$ijil_block_index 1336 1332 7683 11488 
jimt$ij1_bloeck_ number 1335 1331 7671 7672 
jmtSijil_dispatching_ control 1632 1369 
jmt$iji_entry status 1709 1355 §512 5515 
jmt$S$ijl entry status statistics 7657 7650 
jmt$ijil_ordinal 1330 1262 1375 1403 
2814 2834 3047 
5586 5601 S606 
7299 7639 7697 
9127 9198 9256 
S660 9736 9750 
10634 10691 10712 
11060 11077 11180 
jmt$ijl_p 7669 7664 
_jmt$ijl_page_fault_count 1783 1778 1773 1780 
imtS$ijil_page_ stats 1777 1773 
imt$ijl_service_class_stats 1771 1390 
_{mt$S$ijl_ statistics 1816 1389 
“jmt$ijil_swap_count 1792 1788 1789 
imt$iji_swap_counts 1787 1409 1774 
jimtS$ijil_swap_ status 1727 1358 1359 1360 
a $199 10531 11529 
imtS$initiated job_list_block 7680 7686 
jmtS$initiated job_list_entry 1352 1261 2150 5278 
‘ 55693 5574 5581 


\ 
| 


*¥** REFERENCE ABBREVIATIONS : Msmodify, Atattribute, 


2445 
2461 
2482 
2506 
2532 
2559 


9579 


2424 


11372 
11366 


8705/P 


2329 


9148 
10641 


$329 
11207 
11373 


$329 
11207 
11373 


2447 
2463 
2485 
2510 
2535 
2563 


10418 


11389 
11389 


1989-90 


2449 
2465 
2488 
2513 
2539 
2567 


10568 


SO64/P 9084 


6258 


$222 


9331 
11308 
11389 


$9331 
11308 
11389 


S=subscript, I=: 


86399 
9496 


$778 


$329 
11207 
11373 


10664 


5484 
$135 


10835 


1636 
11488 


7657 


2123 
3882 
$612 
7762 
$315 
9844 
10798 
11285 


3023 


5282 
5587 


S=subscript, 


8705 
9562 


9802 


9331 
11308 
11388 


10807 


5499 
$264 


11216 


1648 


76587 


2124 
5279 
5636 
8264 
9433 
10247 
10818 
11528 


3023 


52323 
5597 


$271 


$336 
11338 
11389 


9336 
11338 
11389 


1/0 ref, 


1989-90 


88392 
95798 


10831 


$336 
11338 
11389 


7014 
$443 


11338 


6160 


$323 


2186 
§291 
S666 
8851 
$553 
10430 
10886 
11530 


8290 


S344 
S613 


r2eI/0 ref, 


8-21 


2451 
2467 
24391 
2517 
2542 
2571 


/P $S62 


$461 


10447 
11338 
11389 


10447 
11338 
11389 
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2453 
2469 
2494 
2520 
2546 
2575 


/P 10592/P 


$579 


10537 
11338 


10537 
11338 


R=read, Wt=write, P=parameter 


8-21 


8918 
10418 


11024 


10447 
11338 
11389 


7245 
10589 


113883 


6162 


2221 
5481 
7033 
8386 
$568 
10522 
11006 


&768 


5392 
5713 
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$084 
10568 


11100 


10537 
11338 


7289 
10638 


114490 


7006 


2813 
5496 
7237 
9094 
ss95 
10585 
11053 


8773 


§511 
5718 


Reread, Wewrite, P=parameter 


REFERENCES OF 


NOS/VE js 
JSPSSWAP_POLLING 


IDENTIFIER - < et ee ce eer wee eee eee 


jmt$initiated_job_list_p 
jmtSinput_ file location 
jmt$jil_job_leveler_state 
jmt$jil_job_leveler status 
imt$job_abort_disposition 
jmt$job_ciass 

jmt$ job _control_biock 


jmt$ job_mode. 

jmt$job_ priority 

jmt$ job recovery disposition 
jmt$job_sched_event_selections 
jmt$ job_scheduler_event 

jmt$ job _scheduter_events 
jmt$job_system_id 

jmt$kji_ index 
jmt$maximum_active_ jobs 
jmt$mtr_serv_cilass_stat_entry 
jmt$priority_aging_interval 
imt$queue file _ijl_information 
jmt$sc_cp_ stat 

jimt$sc_ pf stat 
jmt$sc_swap_count 
jmt$sc_swap_stat 
imt$scheduling data 
jmt$scheduling priority 
imt$service_ accumulator 
jmtSservice_ cilass_attributes 
jmtS$service_ class_cp_time 
jmt$service_ class_entry 
imt$service_class_index 
jmt$service_class_name 
imt$service class_page_ faults 
jmt$service class _swap_stats 
jmt$service_ factor _vatlue 
jmt$service_ factors 
imt$swap_data 

jmtSswapin 

jmtS$swapout 

jmt$Sswapout reasons 
jmt$swapped_job_entry 
imt$system_supplied name 
jmt$task_time_slice 
jmt$time slice values 


Ks 


REFERENCES OF 


NOS/VE js : 
JSPSSWAP_POLLING 


IDENTIFIER-------------------- 


jmt$Suser_ supplied name 
jmtSworking set _size 

imv$aji_p 
imv$Sijil_entry_ status statistic 


jmv$iji_p 


jmv$ job_sched events_selected 
imv$ job_scheduler_event 

imv$ long _wait_swap_threshold 
jmv$memory_needed_by_scheduler 
imv$null_ijl_ordinal 


imv$service_ cilass_stats_ lock 


jmv$service classes 


imv$system_ijl_ordinal 
job_abort disposition 
job_asids_ changed 
job_fixed_asid 


job_fixed contiguous pages 


job_mode 
job_mode_swapou 
job_page_count 
job_page_count 
job_page_count 
job_page_ count 
job _page_ count 
job_page_ count 
job_page_count 
job_page_count 
job_page_ queue _ count 


job _page_ queue list 


job_queue_id 
job_queue_id 


x es 


jsm$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 


ON LINE 


7686 
1906 
4521 
4515 
1915 
1867 
1243 


1870 
1875 
1918 
2612 
2610 
2590 
2297 
1886 
6229 
7713 
6244 
1898 
7741 
77482 
7744 
7743 
1402 
6220 
1823 
6192 
7719 
T7TO7 
1955 
6262 
7724 
7730 
6270 
6266 
1418 
1757 
1756 
1988 
1973 
2105 
1686 
1665 


REFERENCE ABBREVIATIONS 


jism$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
2301 
2315 
7623 
s 7650 


7664 


5540 
5545 
7694 
5551 
7697 


7750 


7702 


7762 
18939 
19260 
1365 


1391 


1789 
$314 
8263 
8289 
8835 
8363 
$126 
9322 
11179 
11273 
1975 


1381 


8263 
8964 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


1257 
1268 
10995 
5519/M 
$331/M 
11116/M 
11308/M 
11360/M 
11389/M 
5590 
11203 
5560 
5562 
8334 
5561 
$724/P 
9810 
11549 
9387/P 
11389/P 
$388/M 
11316/M 
11389/M 
9684/P 
$962 


Memodify, 


1.0 89102 


12693 


5520 
$331 
11116 
11308 
11360 
11389 
9684 
11293 


11252 


8770 
9817 


9394/P 
11389/P 

$389 
11317 
11389 


8328/8 
8969/S 


1.0 88102 
“REFERENCES 

5726 6964 7034 
7683 8265 8767 
$095 9128 9197 
ss69 9596 8659 
9845 9866 10248 
10711 10799 10828 
11284 11436 11478 
7670 

1901 

4516 

4145 

1899 

1414 

5719 5725 6965 
11095 

1371 

1411 1412 6221 
1900 

5540 

5545 

2610 2612 5618 
1258 

1357 2297 

6206 

7709 

6214 

1396 

7720 7721 

71725 7726 T1727 
7731 7732 7736 
71733 71734 7735 
1380 

6213 

1404 1405 1406 
7708 

7714 

7703 

1415 6197 6207 
6199 6200 

7715 

7716 

6208 

6208 

1382 

8722 8723 11557 
8719 8720 11554 
1410 2837 7246 
1281 1427 2151 
1256 1353 7768 
1666 1667 

1650 6173 

M=modify, Azattribute, 


10830 


8324/M 

$336/M 
11142/M 
11338/M 
11362/M 
11389/M 

9771 
11483 


3777 
9818 


11241/P 


§$391/M 
11320/M 
11389/M 


10313 
9044 
10001 


8396 
8978 
10618 


11338/M 
11388 
8328 
8608 
83948 
83969 
9182 
$377 
11236 
113368 
8425 
11455/M 
8424 
9182 
3974 
10991 
8328/58 
8970/S 


Azattribute, 


7236 
8807 
$255 
$679 
10431 
10848 
11527 


7016 


6222 


7738 
7737 


6204 


7703 


11557 
11555 
$317 
5634 


Szsubscript, 


8324 
S336 
11142 
11338 
11362 
11389 
$778 
11483 


$787 
$822 


11248/P 


$3392 
11321 
11389 


9051/M 
10358 


8430 
$181 
10623 


11338 


8328 
8611 
83948 
8974 
9182 
93806 
11236 
11338 
8431/M 
11456 
8426 
$182 
10217 
11236 
8328/S 
89s71/s 


Szsubscript, 
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7254 7293 7298 76406 
8850 8928 8960 8987 
$316 9434 9525 $554 
S737 $747 $749 9751 
10523 10586 10635 10630 
10881 11018 171094 11186 
8862 9105 9447 10888 
6223 6224 
6205 
9846 

IsI/O ref, Reread, Wewrite, Ptparameter 


9117/M 
10447/M 
11168/M 
11338/M 
11369/M 
11389/M 

9802 
11485 


9788 
10391/P 


11315/P 


11242/M 
11338/M 


9148/P 
10359/P 


8431 
$182 
10648 


11389/M 


8431/M 


11389/M 
8609 
11459/M 
8431 
9230/P 
10721 
11236 
8431 


I=1/06 


1989-08-21 


$117 
10447 
11168 
11338 
11368 
11389 
10831 
11490 


9792 
10407/P 


11323/P 


11243 
11338 


$222/P 
10418/P 


8483 
9574 
10652 


11389 


8431/M 


11383/M 
89370/M 
11460 
8431 
$237/P 
10925/P 
11338 
8431/S 
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9$329/M 93293 
105837/M 10537 
11207/M 11207 
11338/M 11338 
11373/M 11373 
11024 11100 
11550 

9801 9806 
10704/P 11549 
11338/P 11338/P 
11245/M 11246 
11338/M 11338 
9271/P 9461/P 
10568/P 105892/P 
8483 8542 
$577 10573 
10658 11130 
6431 8431 
11389 113893 
9182/M 11236/M 
&963 89°71 
9244/P 9377 
10837 10864 
11389 

8431/8 8431/S 


ref, Reread, Wewrite, P=parameter 


REFERENCES OF 


NOS/VE js : monitor mode job 5s 
JSPSSWAP_POLLING 


IDENTIFIER---+-------++------- -- 


job_queue_ id 
job_queuvue id 
job_recovery disposition 
job_scheduler_ data 


job_swap_counts 
job_swapping_ io 

jsc$isqi_nul 
jsc$isqi_swapped_io_cannot_ini 
jsc$isqi_swapped_io_completed 
jiscS$isqi_swapped_io_not_init 
jsc$isqi_swapped_out 


jsc$isqi_swapping 


jsc$jss_advance_swap 
isc$jss_initiate_swapout_io 
jsc$jss_set_delayed_ swapin_wor 
jsc$jss_special_swapout 

jsc$ jss_swap_job_in 
jsc$jss_swap_job_out 
isc$min_ecc 

jsc$min_ecc_js 


jisc$sc_swapin_job_mode 

‘ jsc$sc_swapin_mtr_direct 
jisc$sc_swapin_mtr_mode 
jisc$sc_swapout_ job_mode 
jsc$sc_swapout_mtr_mode 
jis¢e$sd 
isc$sd 
jsc$se 


out 

_ immediate 
jsc$se_polling 
isc$ti_advance_from_cannot_ini 
jsc$ti_allocate_swap_file 
jisc$ti_allocate_ swap_file jm 
‘jsc$ti_cd_idle_task_complete 
isc$ti_cd_idie_task_complete_ 2 
jsec$ti_cd_to_in_at_s 
jisc$ti_cd_to_in_at_s2 
jsc$ti_change_asid 


jsce$ti_change_asid_again 
jsc$ti_change_asid_sfd 
jsc$ti_dm_transient_error 


jsc$ti_dump_shared_q_for_sfd 


*x* 


REFERENCES OF 


NOS/VE js monitor mode job s 
JSPSSWAP POLLING 


- IDENTIFIER-------------------- 


jsc$ti_dump_shared_ queue 


jsc$ti_filush_am_pe 
jsc$ti_flush_am_ready 
jsc$ti_flush_am_relink 


jsc$ti_free_memory 
jsc$ti_free memory_si_aborted 
isc$ti_free readied _s2_job 
jsc$ti_init_swapin_io_error 
jsc$ti_init _swapout_io_error 
jsc$ti_iwa 
jsc$ti_lwa_cp_age 
isc$ti_iwa_ready task 
jsc$ti_iwa_stale_mod_pages_rem 
isc$ti_lwa_stale_pages_ rem 
jsc$t i_max_ index 
jsc$ti_min_index 
jsc$ti_move_am_back_to_am 
jsc$ti_move_am_back_to_am_pc 
isc$ti_mtr_req_adv_from_aj 
jsc$ti_mtr_req_adv_from_sd 
isc$ti_new_job_fixed_asid 
isc$ti_no_ajl_ord_for_swap_in 
_jsc$ti_no_ajlo_mtr_swapin 
jisc$ti_no_ajlo_swapin_after_io 
jsc$ti_no_ajlo_swapin_before_i 
jisc$ti_no_memory for _swap_in 
isc$ti_no_pages_for_sfd_on_si 
jisc$ti_page_q_ counts_ different 
jsc$ti_pager_io_error 
isc$ti_pt_full_reassign_jf 
isc$ti_recal_sje_so 
isc$ti_recal_sje_s2 
jsc$ti_recalculate sje 

_ jsc$ti_reserve_memory_failed 
jisc$ti_reuse_job_fixed_asid 
jsc$ti_reuse_job_fixed_asid_as 

j riop_init 

riop_m_ bit reset 

riop_mem_freed 

riop_ relinked 


Ltt tet tttititirtiritrite 


isc$ti 


rmmt_pf rec ptm 
rmmt_ pf rec ptu 
rmmt_pf_ reuse _asid 
rmmt_pt_done 

rmmt pt_full 
rmmt_pt_full_ failed 


fo 
he 

n 

if) 

wn 
et 


jsc$ti 
, gseSti 


REX 


ism$monitor_mode_job_swapper 


wapper 


DEFINED 
ON LINE 
$126 
11179 
1900 
1380 


t 2128 


kK 2828 


—_ oe we owe 
_ 
° 
p) 
a 


t 8171 


8158 
8037 
8036 
80sé8 
8os5s 
8167 


REFERENCE ABBREVIATIONS 


jsm$monitor mode_job_swapper 


wapper 


DEFINED 
ON LINE 
8168 
80893 
8091 
g8og0 
8085 
8084 
81693 
8160 
8161 


o 8166 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II1 


REFERENCES 


9026/P 
9161/P 
9186/P 
9168/P 
9239/P 
9$232/P 
10806/P 
8640/P 
8503/P 
10910/P 
10913/P 
10944/P 
10929/P 
10828/P 
8197 
8197 
§538/P 
§539/P 
11399/P 
11404/P 
90439/P 
9066/P 
11115/P 
10644/P 
10595/P 
s035/P 
§082/P 
8428/P 
94839/P 
10159/P 
11452/P 
11466/P 
11442/P 
8324/P 
9053/P 
9055/P 
9646/P 
9636/P 
9626/P 
9616/P 
10079/P 
10093/P 
10025/P 
10039/P 
10059/P 
10042/P 
10051/P 
10066/P 
10123/P 
10142/P 
10148/P 


Memodify, 


1.0 88102 


9246/P 


8253 
8253 


9117/P 


1.0 89102 
REFERENCES 

9182 §8182/Ss 9182/S 
11236 11236/S 11236/S 
99363/M 9965/M 

9361/M 9362/M $363 
11242/S 11243/S 11245/S 
11321/8 11338/M 11338/M 
11338/P 11363/M 11389/M 
11389/S8 11389/P 

9362/M 9363 11338/M 
84398 8636 9520 
8324/P 9117/P 9769 
9348/P 9578/P 10649/P 
2130 8546/P 9350/P 
2130 8341/P 10605/P 
8579/P &8624/P 8684/P 
11389/P 

8296 8348/P 8366/P 
9759 10801/P 11026/P 
11389/P 11405/P 11545/S 
11395 

2838 11410 

2840 11412 

2836 11343 

11298 

2836 11325 

26198 

2622 2625 2628 
2646 2649 2652 
11299/P 

11104/P 

11166/P 

9359/P 11338/P 11389/P 
11201/P 

9080/P 

8440/P 8449/P 8876 
3019 9405/P 9405 
11034 11118/P 11118 
11338 11389/P 11389 
3019 11034/P 11419/P 
8492/P 

8825/P 

8834/P 

8337/P 

8349/P 

8597/P 

&8555/P 

9890/P 

9888/P 

9895/P 

8838/P 

8447/P 

Memodify, Azattribute, 


10460/P 


Azattribute, 


9182/S 
11236/58S 


9388/S 
11246/S 
11338 
11389/M 


11338 


$800 
11338/P 
10653/P 
10659/P 

8697/P 


8554/P 
11117/P 


2631 
2655 


8891 
10512 
11170/P 
11419 
11600/P 


$S$=subscript, 


10537/P 


S=subscript, 


$389/S 
11316/8 
11338/85 
113898 


11389/M 


10445/P 
11389/P 
11338/P 
11258/P 

&8701/P 


8595 
11169/P 


2634 


83908 
10841/P 
11170 
11600 


11155/P 


I1=1/0 ref, 


I=1/0O ref, 


1389-08-21 


1889-08-21 13:33:34 
9391/S 9392/Ss 9396/P 
11317/S 11318 11320/58 
11338/S8S 11338/5S 11338/S 
11389/S 11389/S 11389/S5S 
11389 
10537/P 11139/P 11204 
11389/P 
$352/P 9560/P 11338/P 
8596/P 9370/P 9584/P 
11261/P 11302/P 11338/P 
2637 2640 2643 
10841 10871/P 10871 
11262/P 11262 11338/P 

R=sread, Wewrite, 


13:33:34 


Reread, Wewrite, 


PAGE 213 


P=parameter 


PAGE 214 


P=parameter 


REFERENCES OF jism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 215 
NOS/VE js : monitor mode job swapper 
JSPSSWAP_ POLLING 
FDENTIP LER = <2 695 S25 66 eee eee DEFINED~-- rere recente we REFERENCES 
ON LINE 
jsc$ti_rmmt_pt_full_succ 8113 10153/P 
jsc$ti_rmmt_pte_exists_a 8116 10184/P 
jscSti_rmmt_pte_exists am 8115 10182/P 
jsc$ti_rmmt_pte_exists_err 8117 10190/P 
jsc$ti_rmmt_pte_exists pf 8114 10201/P 
jsc$ti_rxcb_fix_asids 8125 10338/P 
jsc$ti_rxcb_fix_jf_asid 8128 10361/P 
jsc$ti_rxcb_fix_job_asid 8129 10376/P 
jisc$ti_rxcb_fix_templ_asid 8126 10355/P 
jisc$ti_rxcb_fix _xcb_sdt 8124 10328/P 
isc$ti_rxcb_glob_asids changed 8123 10306/P 
jsc$ti_rxcb_job_asids changed 8122 10303/P 
jsc$ti_rxcb_ recovery 8131 10284/P 
jsc$ti_rxcb_temp_asids changed 8121 10300/P 
jsc$ti_rxcb_ zero _asid 8132 10383/P 
jsc$ti_rxcb_zero_job_asid 8130 10379/P 
jsc$ti_sfd_freed 8083 $223/P 
jsc$ti_sif_idile _tasks_init 8142 10536/P 
isc$ti_sif_idled_tasks_comp 8155 &8322/P 
jsc$ti_sif_swapout_io_init 8144 10566/P 
jsc$ti_sif_wait_state 8143 10550/P 
jsc$t i_swapin_disk down. 8163 &8661/P 
jsc$ti_swapin_from_job_mode 8150 11300/P 
jsc$ti_swapin_from_mtr_mode 8151 11167/P 
jsc$ti_swapin_int_by_swapout 8146 &8674/P 
jsc$ti_swapin_io_error 8140 &8665/P 
jsc$ti_swapin_mtr_direct 8152 11105/P 
jsc$ti_swapin_req_status_bad 8153 11312/P 
jsc$ti_swapout_disk_down 8162 8523/P 
jisc$ti_swapout_from_job_mode 8148 S366/P 11338/P 11389/P 
jsc$ti_swapout_from_mtr_mode 8149 11205/P 
jsc$ti_swapout_int_by_swapin 8145 8726/P 
jsc$ti_swapout_jio_error 8141 8526/P 
isc$ti_swapping_ queue _and_exec 8092 8315/P 
jsc$ti_zero_out_pages_ for_sfd_1 8164 10553/P 
jsc$ti_zero_out_pages for_sfd_2 8165 11568/P 
jse$bad_swap_file_ data_detected 2655 8700 9968 
jse$not_enough_mem_for_swap_in 2622 9036/P 9086/P 
jse$pt_full_on_swap_in 2628 8695 10150/P 
jse$swap_file_ not_allocated 2649 8835/P 
jise$unable_to_idie_alil_tasks 2631 9407 11338 11389 
jsk$base 2738 2665 2669 2673 2677 2681 2685 2689 2693 
2697 
jsk$flush_am_pages_ to _disk 2669 9144 9189 
jsk$free swapped _jobs_mm_resour 2685 9217 $249 
jsk$long wait_aging 2677 10898 11000 
jsk$monitor swap_in 2665 11098 11173 
isk$mtr_job_ swapping requests 2673 11288 11422 
jisk$swap_polling 2681 11535 11603 
jsp$free_swap_resident_job 10797 10813 
jsp$idie_tasks_ complete 10817 10844 
5 REFERENCE ABBREVIATIONS Memodify, Azattribute, Sssubscript, I:I1/0 ref, R=read, Wewrite, Ptparameter 
REFERENCES OF jsm$monitor mode_job_swapper NOS/VE CYBIL/II 1.6 89162 1989-08-21 13:33:34 PAGE 216 
NOS/VE js monitor mode job swapper 
JSPSSWAP_POLLING 
IDENTIFIER--*+---------ee- rere DEFINED-----*--+-- rr eres REFERENCES 
ON LINE 
jJspSinitiate_ swapout_io 5623 11411 ° 
jspSio_complete 10847 10873 
jsp$ long wait_aging 10880 11002 
jisp$monitor_advance_swap 11005 10808 11037 
jisp$monitor_swap_in 11076 11175 
jisp$monitor swap_out 11179 11269 
jisp$mtr_job_swapping_ requests 11273 11424 
isp$recalculate_swapped_pages 11435 11469 
jsp$relink_swap_queue $735 8324 8341 8348 &366 8546 8554 8579 8596 
8624 8684 8697 8701 9117 9348 $350 $352 
3370 95690 $578 3584 $831 10445 10837 10605 
10649 10653 10659 10801 11026 11117 11139 11169 
11258 11261 11302 11338 11338 11338 11338 113893 
11389 11389 11389 11405 
isp$set_delayed_ swapin_work mtr 11473 11413 11512 
isp$swap_polling 11515 11605 
jst$changed_asid_entry 2173 2164 
jst$iji_swap_queue_id 2127 2122 2820 9738 9748 
jst$ijil_swap_queue_1link 2121 1364 
jst$ijl_swap_queue_list 2820 8205 8205 
jst$ijl_swap_queue_list_entry 2812 2820 
jstSio_control_information 2135 1383 9438 
jst$job_swapping subfunctions 2827 2835 
jst$rb_job_swapping functions 2831 11274 
jist$swap_direction 1430 8852 
ist$swap_file descriptor 2149 1384 8234 8936 9847 
ist$swap_file_page_count 92 8204 
jist$swap_file_statistics 3032 8218 8218 
jst$swap_state_ statistics 3023 8217 
jist$swap_state_ statistics_entry 3025 3024 
jstSswapped_ page descriptor 2158 2156 8904/P 8905/P 8946 8948 8948 9939 
ist$swapped_page descriptors 2155 2182 
jist$swapping_ event 3019 10899 
jst$swapping request _type 11045 11052 11089 
jsv$enable_swap_file statistics 8208 10963 : 
jsv$enable_swap_resident 8209 8534 
jsv$enable_ swap_resident_no_io 8210 8334 11252 
jisv$free_ working set_on_Swapout 68213 10817 
jsv$halt_on_swapin_failure 8212 $955 
jisv$ijl_serial_lock &202 3754/P 9762/P 9829/P 
isv$ijl_swap_queue_ list 8205 3756 9774/M 9781/M 9784/M 93784 9787 9788 $792 
, 8807/M 9811/M 9812/M $812 9817 9818 $822 11545 
isv$max_pages_ first_swap_task 8214 10832 
isv$maximum_pages_ to_swap 8215 10934 
jsv$pages_needed_for_sfd 8216 8452/M 8452 10552/M 11567/M 
isv$sched swapping _ requests 11049 8359 9359/M $353/M $359/M 8359/M 11065 11066/M 11067/M 
11068/M 11069/M 11104 11104/M 11104/M 11104/M 11104/M 11166 
11166/M 11166/M 11166/M 11166/M 11201 11201/M 11201/M 11201/M 
11201/M 11299 11299/M 112998/M 11299/M 11288/M 11338 11338/M 
11338/M 11338/M 11338/M 11388 1138S/M 11389/M 11388/M 11389/M 
isv$swap_file_ page count 8204 8329/M 8329 8330/M 8330 11237/M 11237 11238/M 11238 
xxx REFERENCE ABBREVIATIONS Mtmodify, Azattribute, Sssubscript, I21/0 ref, Pzparameter 


Reread, Wewrite, 


REFERENCES OF jism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 217 

NOS/VE js monitor mode job swapper 

JSPSSWAP_POLLING 

IDENTIFIER----- eee ee eet eter DEFINED-------+"ee-2e ere REFERENCES 

ON LINE 

jsv$swap_file_ statistics 8218 10872/M 10973 10976/M 10878/M 103978 

isv$swap_state_ statistics 8217 &8780/M 8781 8783/M 8784 8786 8787 8789/M 8790 
8793/M 

isv$swap_trace 8197 8256/M 8256 8315/M 8315 8322/M 8322 8324/M 8324 
8337/M 8337 83439 /M 8349 8428/M 8428 8447/M 8447 
8492/M 8492 8503/M 8503 8523/M 8523 8526/M 8526 
8555/™M 8555 8597/M 8597 8640/M 8640 8661/M 8661 
8665/M 8665 8674/M 8674 8726/M 8726 8825/M 8825 
8834/M 8834 8838/M 8838 9026/M $026 $035/M 9035 
9049/M 90493 9053/M 9053 9055/M 9055 SOBE/M S9O66 
9082/M 9082 9117/M 9117 9161/M $161 9168/M 9168 
9186/M $186 9223/M 9223 9232/M 9232 $239/M 9239 
8246/™M 8246 S9366/M 9366 $489/M 9489 $538/M 9538 
3539/M 9539 9616/M 9616 9626/M $626 S636/M 9636 
9646/M S646 9888/M 9888 $890/M 9890 9895/M 9895 
10025/M 10025 10039/M 10039 10042/M 10042 10051/M 10051 
1005S /M 10059 10066/M 10066 10079/M 100798 10093/M 10083 
10123/M 10123 10142/M 10142 10148/M 10148 10153/M 10153 
10159/M 10159 10184/M 10184 10190/M 10190 101932/M 10182 
10201/M 10201 10284/M 10284 10300/M 10300 10303/M 10303 
10306/M 1O306 10328/M 10328 10338/M 10338 1O0355/M 10355 
10361/M 10361 10376/M 10376 1037393 /M 10379 10383/M 10383 
10460/M 10460 10536/M 10536 10537/M 10537 10550/M 10550 
10553/M 10553 1O0566/M 10566 10595/M 10595 10644/M 10644 
10806/M 10806 10910/M 10910 10913/M 10913 10928/M 10328 
10929/M 10929 10944/M 10944 11105/M 11105 11115/M 11115 
1115S/M 11155 11167/M 11167 11205/M 11205 11300/M 11300 
11312/M 11312 11338/M 11338 11389/M 11389 11399/M 11399 
11404/M 11404 11442/™M 11442 11452/M 11452 11466/M 11466 
11568/M 11568 

jsv$t ime_to_cal1_job_swapper 7776 9405/M 10510/M 10841/M 10871/M 11034/M 11118/M 11170/M 11262/M 
11338/M 11389/M 171413/M 11541/M 11599 11600/M 

keypoint_enable 6182 $695/M 

kt 8241 9071/M SO72 9073 10611/M 10612 10613 10669/M 10670 
10671 11123/M 11124 11125 

last_entry_in_queue $750 $756/M 9801 9802/P 9804 

Tast_ijle_p $751 9802/P 9803/M 

last segment _number 798 10967 109870 10886 

last _swap_status 1360 &8776/M 9625 

last_Sswap_status 8290 8302/M 8535 /M 8571/M 8577/P 8718/M 8719 8720 8722 
8723 

last_Sswap_status $198 9233 

last _swap_status 11528 11553/M 11554 11555 11556 11557 

Tink 2218 9157 $9614 10013 10124/M 10124 10727 10974 10989 

‘Tink 2279 9151 9540 9544 9610 $374 10217 10721 10964 
10983 

live _aste_p 9925 10015 /M 10055 10055 10077 10078 10078 10032 10084/P 
10095 10036 10037 100388/M 

‘lock 5391 5400 

5 ad REFERENCE ABBREVIATIONS M=modify, Aztattribute, S=subscript, =I1/O ref, Reread, Wewrite, Psparameter 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.60 89102 1889-08-21 13:33:34 PAGE 218 

NOS/VE js : monitor mode job swapper 

JSPSSWAP_POLLING 

‘IDENTIFIER--- +--+ -- ee - eee ee ee ee DEFINED--------- ec er eee REFERENCES 

ON LINE 

Tock 5432 5445 

Tock 7211 7214 7217 7218/M 7218 7220/M 

lock 7264 7272 T7274 7276/M 17278/M 7278 

Tock 8806 8822 

Tock $126 91598 

Tock $314 9387 9387 9387/M 9387/M $387 

lock $314 9394 $394 9394/M $394 9$394/M 

jock 9432 9478 

lock 9594 9627 

lock 9735 9754 $754 $3754/M 9754/M $754 

lock 9735 $762 9762 $762/M $762 §9$762/M 9829 $829 98239/M 
$8293 $829/M 

lock 9843 10227 

tock 9861 $304 

lock 10246 10365 

jock 107397 10803 10803 10803/M 10803/M 10803 

Tock 10797 10811 10811 10811/M 10811 10811/M 

lock 111783 11241 11241 11241/M 11241/M 11241 

tack 11179 11248 11248 11248/M 11248 11248/M 

lock 11273 11307 11307 11307/M 11307/M 11307 11315 11315 11315/M 
11315/M 11315 11333 11333 11333/M 11333/mM 11333 11338 
11338 11338/M 11338/M 11338 11352 11352 11352/M 11352/M 
11352 11389 11389 11389/M 11389/M 11389 

lock 11273 113098 11309 11309/M 11309 11308/M 11323 11323 11323/M 
11323 11323/M 11338 11338 11338/M 11338 11338/M 11341 
11341 11341/M 11341 11341/M 11388 11389 11389/M 11389 
11389/M 11383 11393 11393/M 11383 11393/M 

locked 958 5400 5445 8822 9159 9478 $627 $904 10227 
10365 

Jocked 3801 7274 9387 9754 10803 11241 11307 11315 11333 
11338 11352 11389 

locked page 2224 $541 9542 

m 2070 $158 $162 9637/M 10041 10131/M 10131 10733 

max block  in_use 7671 11483 

max segnum 10261 10339/M 10340 10341/M 10343 

max_segnum_to_update 10262 _10314/M 10316/M 10318/M 10326 10337 10339 

maximum pages to Swap 10889 10932/M 10934/M 10937 

maximum _t ime 3027 8786 8788 8790/M 8791 8733/M 

media 802 10730 

memory reserve request 1374 8328 8324 8324/M 8324 8324 8324 8324/M 9117 
9117 9117/M 9117 9117 $117 8117/M 10451 10453 
10454/M 10455 10456 10458 10462/M 10537 10537 10537/M 
10537 10537 10537 10537/M 11146 11148 11149/M 11150 
11151 11153 11157/M 

min working set size 1269 10322 

minimum_working set 10890 1091S93/M 10922/M 10926/P 

mmc$ 3337 3343 3346 3349 3352 3355 3358 3361 3365 
3368 3371 3374 3377 3380 3383 3387 3390 
3393 3396 3399 3402 3406 3409 3412 3415 
3418 3421 3424 3427 3430 3433 3436 2439 

*x REFERENCE ABBREVIATIONS Memodify, Atattribute, S:subscript, I21/0 ref, Reread, W=write, P=parameter 


REFERENCES OF jsm$monitor_mod 


NOS/VE js : monitor mode job s 
JSPSSWAP_ POLLING 


IDENTIFIER-------------------- 


mmc$assign_active_null 
mmc$bd_explicit_io 

mmc$bd_ job_swapping io 
mmc$bd_paging_io 
mmc$celil_pointer 
mmc$heap_pointer 

mmc$iocb table size 
mmc$iorc await _io completion 
mmc$iorc_ write pages 
mmc$irs active 

mmc$irs complete 

mmc$irs none 

mmc$kw_asid 

mmc$kw_clear_ space 

mmc$kw_ current _segment_length 
mmc$kw_error_exit procedure 
mmc$kw_g1_key 
mmc$kw_hardware_ attributes 
mmc$kw_inheritance 

mmcS$kw max segment_length 
mmc$kw_preset_value 
mmc$kw_ps_transfer_size 
mmc$kw_ring numbers 

mmc$kw_ segment _access control 
mmc$kw_segment_number 
mmc$kw shadow _segment 
mmc$kw_ software attributes 
mmc$kw_wired segment 

mmc$ ip_not_ locked 

mmc$ 1ss_none 

mmc$max rma_list_length 
mmc$mpt_done 
mmc$mpt_page_already_exists 
mmc$mpt_page_tabie_ full 
mmc$pfs_ failed 
mmc$pfs_ input _asid_reassigned 
mmc$pq_avail 
mmc$pq_ avail modified 
mmc$pq_ free 

mmc$pq_job_base 
mmc$pq_job_fixed 


x** 


REFERENCES OF jsm$monitor_mod 


NOS/VE js : monitor mode job s 
JSPSSWAP_POLLING 


IDENTIFIER-------------------- 


mmc$pq_job_io error 
mmc$pq_job_working_ set 


mmc$pq_ shared first 

mmc$pq_ shared first_site 
mmc$pq_ shared _ last 

mmc$pq_ shared num_sites 
mmc$pq_shared_other 
mmc$pq_shared_site_01 
mmc$pq_shared_ site_25 

mmc$pq_ shared task_service 
mmc$pq_ swapped_io_error 
mmcS$pq_ wired 
mmc$segment fault _processor_id 
mmc$sequence_ pointer 
mmc$server_jiocbh table size 
mmc$ssk_none 

mmc$ssk_segment_ number 
mme$no_ free pages 
mme$page_table_ full 
mmp$age_job_working set 
mmpS$asid 

mmpSassign_asid 
mmp$assign_page_to_ monitor 
mmp$assign_ specific _asid 
mmp$ast i 

mmp$c laim_pages_for_swapin 
mmpS$condit ional _ purge _all_map 
mmp$delete_page_from_monitor 
mmp$delete pt _entry 
mmp$dump_shared_queue 
mmp$free_asid 

mmp$ free memory _in_job_queues 
mmp$get_max_sdt_sdtx_pointer 
mmp$get_ verify asti_in_fde 
mmp$make_ pt_entry 

mmp$nudge_ periodic _call 
mmp$process_ page _table_ full 
mmp$purge_all_map_proc 
mmp$relink page_frame 
mmp$remove_stale_ pages 
mmp$remove_swapped_shared_ page 
mmp$replenish_ free queues 
mmp$trim_job working set 
mmpSwr ite _page_to_disk 
mmt$active_io_ count 
mmt$act ive _ segment table 
mmt$act ive _segment_table_entry 


mmt$ast_ index 


EX 


e_job_swapper NOS/VE CYBIL/II 1.0 89102 
wapper 
DEFINED---+-+---. oo Sess Ses REFERENCES 
ON LINE 
3442 3445 3448 
3466 3470 3473 
3491 3494 34397 
3515 3518 3521 
3541 3545 3548 
3566 35693 3572 
3590 359833 3596 
3616 3613 3622 
3640 3643 3646 
3664 3668 3671 
5935 5936 
3052 3044 
3051 3046 $473 
3051 3044 
6034 6039 
6035 6043 
5260 5253 
4667 4660 
4667 4658 
4637 4631 
4637 4632 
4637 4631 
5960 5936 
5958 5983 
5957 5977 
59593 59387 
59359 $381 
5961 5990 
59361 59398 
5958 5979 
5360 5985 
59362 6006 
5956 5972 
5960 59394 
5957 59375 
5962 6000 
5959 §992 
5962 6003 
22490 9541 $542 
6109 $700 
3057 3062 3063 
3073 10122 10195 10203 
3074 10167 
3073 10138 
6952 10144 
69353 10152 
1990 2036 190183 
1991 9151/8 9543/P 10188 
1989 2048 10052/P 10186/P 
2037 $635 
2030 2037 2043 10977/S 
REFERENCE ABBREVIATIONS Mzemodify, Azattribute, 


e job swapper NOS/VE CYBIL/II 1.0 89102 
wapper ? 
DEFINED+ +++ ---e eee eee REFERENCES 
ON LINE 
2031 8423/8 8424/S 9617/P 
2032 2049 2050 8425/S 
10925/S 10837/S 109864/S 
11459/S 11460/S 
2038 $021 10199 
2040 2044 
2045 10200 
2041 2044 
1989 20393 
2001 20496 
2025 2045 
1994 2038 
2028 2048 9610/S 10187 
1392 2035 
6631 6685 
6034 6041 
4528 4531 
6129 6101 $712 
6130 603g9 $714 
3348 8441 
3346 88390 
5718 10814 
5628 10067 10373 
5735 8o50 10043 10060 
$745 8889 
5741 9056 10084 
5752 so4a6 ss8es 10359 
5634 $078 
5758 8472 9947 10957 
$7793 8532 8222 9278 
5782 10185 10737 
5642 8448 9027 
5786 9085 10146 
5648 9083 9230 $237 
5799 5803 s6s6 10275 
S663 S677 103687 
6917 10114 
6926 6831 8454 
6942 10140 
5691 S684 S765 8472 
6357 8166 $543 $617 
5723 10925 
s 5712 8324 9117 10492 
S656 9120 
68363 10838 
6971 $160 
4666 4545 6655 
2198 7736 
2183 2161 21938 2228 
6945 7812 $002 
$37 783 1426 2176 
REFERENCE ABBREVIATIONS : Mzemodify, Azattribute, 


10209 


10926/P 
10194/P 


10391/S 


8426/S 
10983/S 


10189 


190080 


$579 


$244 
10329 


$947 
100582 


10537 


5635 
$865 
5628 


1989-08-21 


3454 3457 
3479 3482 
3503 3506 
3527 3530 
3554 3557 
3578 3581 
3602 3606 
3628 3631 
3652 3655 


34606 
3485 
3508 
3534 
3560 
3584 
3610 
3634 
3658 


10202/P 10738/P 


S=subscript, IsI/0 ref, 


Rz=read, W 


1989-08-21 


9166/P 9540/5 
11448/S 11449/5 


10418 10568 
10957 

10186 10194 
5737 5741 
$922 $9325 
5667 5736 


S-zsubscript, I21/0 ref, 


10202 


S787 
$330 
5753 


13:33:34 PAGE 219 


3463 
3488. 
3512 
3538 
3563 
3587 
3613 
3637 
3661 


zswrite, P2parameter 


13:33:34 PAGE 220 


9544/S 10721/S 
11455/s 11456/S 


10738 


6318S 
10254 
5829 


Reread, Wswrite, P=parameter 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 
IDENTIFIER-- cee e er te ete eee nee DEFINED----2-+2--e ret eeere REFERENCES 
ON LINE 
6944 8999 9000 9864 $323 9931 10255 10259 
mmt$attribute_ keyword S956 5971 
mmt$buffer descriptor 3041 5471 9444 
mmatSbuffer_ descriptor_type 3051 3043 
“mmt$eoi_state 946 791 
mmt$global_page queue_index 2048 2292 7850 9003 
mmt$giobal_ page queue _Tist 22382 7804 
mmt$gliobal_page_ queue _Tist_ent 2282 2292 
mmt$hardware_attribute_ set 6025 5991 
mmt$hardware_ attributes 6013 6025 
mmt$io_ identifier 3878 4205 5474 6975 9137 9446 
“mmt$io_ request _status 4637 4630 
mmt$io_ status 4629 4639 4652 
mmt$iocb index §253 3885 3891 
mmt$ job_page_queue_ index 2049 1975 2293 8232 8328 8328 8431 8431 8607 
8607 8964 8968 8968 9182 9182 9324 9376 
9376 $9373 10214 10215 11199 11236 11236 11338 
11338 11389 11389 
mmt$job_page_queuwe_ list 2293 1381 5637 5648 
mmt $ Tink 2206 2184 2218 2219 2279 
mmt$ lock segment_status 6109 5900 
mmt$ locked _page 2240 2224 
mmt$make_pt_entry status 3073 6921 9327 
mmt $max_sdt 5839 $843 
mmt $max_sdt_p $843 5801 S673 10266 10268 
mmt $max_sdt x 5924 5928 
mmt $max_sdtx_p §928 5802 9674 10267 19269 
mmt$memory reserve _ request 2260 1374 
mmt$page_age 2247 2227 2251 2251 
mmt$page_frame_ index 2144 2136 2138 2138 2140 2208 2208 2262 2263 
2839 $551 5623 5643 57933 6918 6357 6373 
8289 8291 8S21 s8S65 8619 8663 89363 $139 
$140 $322 3381 $448 93508 $534 $602 $604 
$607 9917 $932 9933 10574 10717 10719 10833 
11198 11215 11338 11389 11437 
mmt$page_frame_queue_id 2050 2137 2192 2222 §727 6958 $915 10894 
mmt$page_frame_table 2233 7838 
mmt$page_ frame_table_entry 2217 2159 2233 63920 9603 S606 $918 
mmt$page_queue_list_entry 2278 2283 2293 §723 
‘mmt$pt_ full status 6952 6946 $934 
mmt$reassignable_ page frames 7889 7886 
mmt$rma_list entry 3065 3060 4236 4251 
mmt$rma_list_ index 3062 3060 
mmt$rma_list_ length 3063 3042 
mmt$sdtx_ stream_data 5907 5903 
mmtSsegment_access_ condition 6658 6686 
_mmt$segment_access_ rights 6073 5899 
mmt$segment_access state 6078 5894 
mmt$segment_descriptor 5826 5835 5840 79300 
mmtSsegment_descriptor_extended 5892 5921 58325 
“mmt$segment_descriptor_table_ex 53920 9661 
*e% REFERENCE ABBREVIATIONS Memodify, Azsattribute, S=subscript, I:21/0 ref, Reread, Wewrite, P=p 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 
NOS/VE js monitor mode job swapper 
JSPSSWAP_ POLLING 
IDENTIFIER--------- reer ee DEFINED~----* 2% eeer reer REFERENCES 
ON LINE 
mmt$segment_inher itance 5942 5896 5999 ° 
mmt$segment_ pointer _kind 6034 6038 
mmt$segment_reservation_state 6119 $897 
mmt$server_iocb_entry 4535 4213 4532 
mmt$server_state 4681 4537 
mmt$shadow_info 6084 5901 
mmt$shadow_reference_info 6283 6186 
mmt $shadow_segment_kind 6129 6098 
mmt$software attribute set 6027 5898 5993 
mmt$software attributes 6021 6027 
mmt$sub_reqcodes 4667 4542 4657 
mmt$write page_to_disk_status 3076 6977 9142 
mmt$xcb_page_wait_info 6294 6172 
mmv$aggressive_aging_level_2 77858 8324 9016 so25 9034 $117 10452 
mmv$aging algorithm 7792 10903 
mmv$ast_p 7796 5671 5671 5672 9047 $390 10068 
10368 10368 
mmv$gpqi 7804 9022 9151 9610 
mmv$initial job _fixed_ast_entry 7812 9059 
‘mmv$ last _active_ shared_ queue 7850 9021 
mmv$max_ template segment _number 7823 10316 
mmv$min_avail_pages 7826 8534 
mmv$mu it iple_page_maps 7833 5683 5763 8472 9947 10957 
mmv$pft_p 7838 9157 9158 $158/s $159/P 9162/S 9541/S 
9542 9613 9633 $639 10013 10124 
10127/M 10128/M 10173 10727 10728 10729/P 
me 10974 1098S/P 10987 10989 
mmv$pt_p 7877 9158 98162 9541 $541 9637/M 10130/M 
10172 10733 
mmv$reassignable_page_ frames 7886 5561 8324 &8328/M 8328 8333 8333 
8395/M 83935 8429/M 8429 8431/M 8431 
8488/M 8488 8532/M 8532 8534 8541/M 
8543 8566/M 8566 8921/M 83921 83976/M 
9015 $oO1s 9024 9024 $O32 9033 
9173/M 91890 $182/M $182 $222/M $222 
9573/M $573 3575/M 9576 9579/M 9579 
104582 10837 10568/M 10568 10572/M 10572 
10600/M 10601 10617/M 10618 10622/M 10622 
1O651/M 10651 10656/M 10657 11128/M 11129 
, 11236 11251 11251 11450/M 11451 11457/M 
11462 11464/M 11464 
mmv$reserved_ page_count 7844 8324/M 8324 9117/M $117 10457/M 10457 
11152/M 11152 
. mMmv$swapping aic 7856 10921 
mmv$t ime _changed_global_asid 7861 10295 
mmv$t ime_changed_template_asid 7868 10298 
immv$t ime _map_last_purged 5776 5764 8472 9947 10957 
~ mmv$t ime_to_call_mem_mgr 6937 6928/M 8454/M 
modified pages removed $138 $150/M 9167/M $167 $176 $178 
modified pages _ removed 10891 10926/P 109829/P 10993 
7793 5400/P 8822/P $159/P 9478/P 9627/P 33804/P 


» monitor, tock 
tot 
4 


**#* REFERENCE ABBREVIATIONS 


13:33:34 
10537 11147 
10347 10368 

9541/85 9541 
10125/M 10126/M 
10733/S 10966/P 
10131/M 10132/M 

83932/M 8333 

8481/M 8482 

8541 8543/M 

8377 $014 

9034 9117 

$293/M $2393 
10418/M 10418 
10598/M 105398 
10646/M 10647 
11147 11236/M 

11457 11461/M 
10537/M 10537 
10227/P 10365/P 


PAGE 221 


arameter 


PAGE 222 


Msmodify, Atattribute, S:subscript, I21/0 ref, Rtread, Wswrite, P=parameter 


REFERENCES OF ism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 

NOS/VE js : monitor mode job swapper . 

JSPSSWAP_ POLLING. 

IDENT ITF LER St eo.3 oe = 6s & Sor hse ee DEFINED<----e5eer2ee- 7° “REFERENCES 

ON LINE 

move_am_to_am 9524 9111 9549 

mpt count $926 10106/M 10143/M 10143 

mpt status 8327 10115/P 10121 10195/M 

msg $328 s958/M 9959/M 9960/P 

msg 10716 10750/M 10751/M 10752/P 
10762/P 

mtc$job_fixed segment 3083 5361 5398 8532 
9159 $222 $274 
TOOSE 10227 10365 
10985 11134 

mtc$scb_max_hardware_ status 8017 7376 

mtp$cst_p 6981 9405 10513 10841 
11338 11389 11419 

mtp$error_stop $428 8297 8310 8532 
9411 9579 93692 
9356 10170 10197 
11266 11338 11389 

mtp$set_inter lock 5432 5400 5453 8822 
10365 

mtp$set_ status_abnormal 7197 7204 8835 8839 
11383 

mtt$idie status_block 7954 7941 

mtt$monitor inter lock $53 778 $432 

mtt$scb_180_ status 7330 7921 

mtt$scb_ hardware status 7978 7916 8001 

mtt$scb_ hardware _ status _count 7376 79379 

mtt$scb hardware status _msg 7982 7988 

mtt$scb hardware status_msgs 7987 7924 

mtt$scb hardware _status_options 7968 7978 7987 

mtt$smu_communicat ions block 7915 7308 

mtt$step_ status _ block 7948 7942 

mtt$system_idle_ update request 8022 7956 7956 

mttS$system_status_ block 7940 7331 

mtt$system_step_update_request 8021 7951 7951 

mtv$csto 6387 6383 9405 10813 
11262 11338 11389 

mtv$scb 7308 190701 190702 

mtv$system_job_monitor_xcb_p 8046 10275/P 

nat$received_message_descriptor 6310 6303 6312 

nat$received_message_ list 6302 6154 

need _ajl 8263 8532/M 8532 8532 

need_ajl $196 $222/M $222 9222 

need _ajl $265 $263/M $270 $281 

need _aji $567 35739/M 3579 $579 

need _ ajl 10246 10418/M 10418 10418 

need_aji 10521 10568/M 10568 10568 

new _asid $863 98396 9897 

new_asid $329 10043/P 100439/P 10060/P 
10154/P 10157 

new_aste_p $865 3898 98303 9904/P 

xt REFERENCE ABBREVIATIONS Memodify, Asattribute, 


10144 
10203/M 


10755/M 


8822 
$464 
10418 


10871 
11600 
8707 
$760 
10205 
11415 
9159 


9036 


10841 
11419 


10067/P 


Szsubscript, 


1989-08-21 


10209 

107S56/M 10757/P 
8888 8903/P 
9478 $579 
10568 10729 
11034 11118 
8734 8842 
3789 9793 
10418 10568 
9478 9627 
9086 16150 
10871 11034 
11600 

10070/P 10080/P 

IsI/O ref, 


13:33:34 
10760/M 10761/M 
8312 9114 
$627 $904 

10900 10966 
11170 11262 
§222 $286 
9819 9823 
10578 10662 
$304 10227 
141355 11367 
11118 11170 
10085/P 10140/P 


Rzread, Wewrite, 


PAGE 223 


Psparameter 


REFERENCES OF jism$monitor_mode_ job _swapper NOS/VE CYBIL/II 1.060 89102 1989-08-21 13:33:34 PAGE 224 

NOS/VE js : monitor mode job swapper 

JSPSSWAP_ POLLING 

IDENTIFIER--- rete rrr ee ee ree DEFINED-~<-e-- ere eee eee REFERENCES 

ON LINE 

new _aste_ p sg930 10043/P 10045/M 10046/M 10047/M 10048/M 10049/P 10060/P 10061/M 
10062/M 10063/M 10064/M 10068/M 10070/P 10080/P 10081/M 10082/M 
10083/M 10084/M 10085/P 10140/P 10154/P 

new_ast i $864 9905 

new _asti $9331 190043/P 100439/P 1005S7/M 10058 10060/P 10067/P 10068/S 10070/P 
10080/P 10085/P 10140/P 10154/P 101758 

new _ entry status 5512 5519/Ss 5520/S 5522 5525 §§29 

new_entry status 8263 8324/S 8324/S 8324 8324 8324 

mew entry status 9093 9117/8 9117/8 9117 9117 $117 

new entry status 9314 $329/S $329/S $329 9329 93298 $331/S 9331/S $331 
$331 $331 $336/S 9336/S $336 $336 $336 

new_entry status 104293 10447/S 1044a7/S 10447 10447 10447 

new_entry status 10521 10537/S 10837/S 10537 10537 10537 

new entry status 11076 11116/S 11116/S 1171116 11116 11716 11142/S 11142/S 11142 
11142 11142 11168/S 11168/S 11168 11168 11168 

new entry status 11179 11207/S 11207/S 11207 11207 11207 

new entry _ status . 11273 11308/5S 11308/S 11308 11308 11308 11338/S 11338/S 11338 
11338 11338 11338/S 11338/S 11338 11338 11338 11338/S 
11338/S8S 11338 14338 11338 11360/S 11360/S 11360 11360 
11360 11362/S 11362/S 11362 11362 11362 11369/S 11369/S 
11369 11369 11369 11373/S8 11373/S 11373 11373 11373 
11389/S 11389/S 11389 11389 11388 11389/S 11389/S 11389 
113893 11389 11389/S 11388/S 11388 11389 11389 

new queue $738 9756/S $758 $759 $800 9807/S $811/S 8812/S $812/S 
9817/S $818/S $822/S $827 

new _swap_status 8768 8780/S 8781/8 8783/5 8784/S 8786/S 8787/S 87839/S 8790/S 
8793/S 8798 

next cyclic_aging time 1273 9115/M $115 11135/M 11135 

next _ijl_ordinal 11530 11551/M 11585 11596 

next index 11050 $359 9359/M 11065 11066/M 11104 11104/M 11166 11166/M 
11201 11201/M 11299 11299/M 11338 11338/M 11389 11389/M 

next pfti $139 9157/M 9171 

next pfti $602 $614/M $651 

next pfti $332 10013/M 10214 10214 10214 10214 10217/M 10220 

next _ pfti 10717 10727/M 10742 

next swap_ status 1359 8323/M 8730 8731/P 8732/M 8737 &8738/P 8739/M 10538/M 
1O555/M 10575/M 10834/M 10862/M 10864/M 1O0866/M 11400/M 11583 

nic$cc_connect_confirm 6342 6333 

nic$cc_connect_ request 6341 6331 

nic$cc_ expedited data 6347 6333 

nic$cc_max_pdu_kind 6349 6352 

nic$channel_connect ion_pdu 6365 6317 

nic$channelnet_pdu 6365 6319 

nit$cc_pdu_kind 6352 6330 

nit$cc_seq#_or_connect_time 6329 6318 

nit$cc_ sequence number 6355 6334 

nit$device_identifier 6362 6313 

nitS$pdu_type 6365 6316 

normal 2898 7202/M 8300/M 8304 8304 8380 &8389/M 8441 8446/M 
8450 8451/M 8458 8460/M 8501 8512/M 8532 8622 
8638 8647/M 8694 &8817/M 8835/M 8839/M 8830 8837 

*** REFERENCE ABBREVIATIONS Memodify, Asattribute, S:subscript, I:1/0 ref, Rtread, Wswrite, Psparameter 


REFERENCES OF 


NOS/VE js 


JSPSSWAP_POLLING 


IDENTIFIER--------- eect eee eee 


notify swapper_when_io_ complete 


now 


nuli_sva 
null sva 
nulil_sva 
nul? _osva 
num sched swapping calls 


offset 

offset 

offset 

offset 

offset 

offset 

offset 

offset 

offset 

offset 

offset 

offset 

old _asid 
old_entry status 
old entry status 
old _entry status 


om 
—_e 
<< 
— 
oom 


Old entry status 


old_entry status 
old _entry status 
old entry status 
old _entry status 
oid _entry status 
old entry status 


cld_entry status 
old _swap_status 


open_validating ring numbe 
osc$aging_interval_maximum 


REFERENCES OF 


NOS/VE js : 
JSPSSWAP_ POLLING 


IDENTIFIER----------+---+---+-+--- 


esc$base_exception 


-ose$call_instruction 


osc$data_read 


osc$free_ running clock_maximum 


osc$invalid_ring 
osc$max_channel_number 
osc$max_ fault contents 
osc$max_ idle count 
osc$max_integer 
osc$max_name_size 
osc$max_number_of_processo 
osc$max_page_frames 


-esc$max_page size 


osc$max_page_table_entries 
osc$max_ring 
osc$max_segment_ length 


osc$max_status_condit ion_code 
osc$max status _condit ion_number 


osc$max_string size 
osc$max_tasks 
osc$maximum_offset 
osc$maximum_processor_id 
osc$maximum_processor_numb 
osc$maximum_processors 
osc$max imum_segment 
osc$min_ecc 


-osc$min_integer 


osc$min_page_size 
osc$min_ring 


osc$pr_base constant 


osc$purge_all_page_seg_map 


“ese$segnum_job_fixed_ heap 


osc$sva_purge _all_page_map 
osc$task_time_slice_maximu 
gsc$vil_invalid_entry 


osk$entry 


osk$exit 
osk$m 


osk$per formance 


osk$system_class 
ost$aging interval 


Sost$asid 


eo 


r 


EK 


rs 


er 


m 


REE 


jsm$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 


1367 
7890 


S761 
8263 
9843 
10880 
119042 


2088 
5352 
5391 
8806 
9126 
9432 
9594 
9843 
$861 
10246 
10710 
10880 
9872 
5515 
8263 
9033 
$314 


$323 
10423 
10521 
11076 


11179 
11273 


11273 
8773 


5833 
2339 


REFERENCE ABBREVIATIONS 


jism$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
103 
6545 
6544 
1139 
374 
S046 
6698 
7088 
4694 
2305 
7O73 
2055 


1127 
2056 
$73 
3397 
2864 
7207 
2880 
839g 
936 
6570 
7065 
7069 
995 
102 
4693 
1126 
$72 
3694 


$707 
3092 
5703 
1697 
$854 
2762 
2763 
2801 


2766 


2776 


2342 
2091 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


108 
6553 
6553 
1136 
1014 
5049 
6692 
7036 
4699 
2309 
7001 
1421 
78390 
8935 
$873 
1123 
2059 


Memodify, 


1.0 88102 
REFERENCES 

9008/M 9036/M 
9408/M 9488 
10150/M 10418 
11338 11338/M 
8398/M 8403/M 
5561 8324 
9014 9015 
10651/M 10651 
5768 

8472 

9947 

10957 

9353 11051 
11389 

9628 9634 
5357/M 5364/M 
5398/M 5398/M 
8822/M 8822/M 
9159/M 9159/M 
9478/M 9478/M 
9627/M 9627/M 
10056/M 10056/M 
9904/M 9904/M 
10365/M 10365/M 
10729/M 10729/M 
10966/M 10966/M 
9885/M 9894 
5517/M 5519/S 
8324/M 8324/S 
9117/M 9117/8 
§$329/M 9329/S 
$331 $331 
9326/M $340 
10447/M 10447/S 
10537/M 10837/S 
11116/M 11116/S 
11142 11142 
11207/M 11207/S 
11308/M 11308/S 
11338 11338 
11338/S 11338/S 
11360 11362/M 
11369/5S 11369 
11389/M 11389/8 
11389 113893 
11338/M 11338 
8775 /M 8776 
8789/S 8730/8 
$705 10351 
2342 

Mzmodify, 


1.0 89102 


2370 


9065 
9503 
10568 
11355/M 
9517/M 
8333 
9024 
11147 


11066 


9634 
$367 
5398 
8822 
9159 
9478 
9627 
10056 
9904 
10365 
10729 
109366 


5520/5 
8324/S 
9117/S 
9329/58 
S336/M 


10447/S 
10537/S 
11116/5S 
11168/M 
11207/S 
11308/S 
11338/M 
11338 
11362/S 
11369 
11389/S 
11389/M 
11389/M 
8780/5 
8793/S 


Azsattribute, 


2372 


2891 


1017 


Aztattribute, 


9081 
9511/M 
10594 
11367/M 
10567/M 
8534 
9032 
11251 


11104 


9647/P 


10227/M 


10985/M 


5524 
8324 
9117 
9329 
9336/S 


O447 
0537 
1116 
1168/S 
1207 
1308 
1338/8 
1338 
1362/5 
1373/M 
1383 
1389/S 
1389 
8781/58 


ee ee ee ee ee ee ee 


S=subscript, 


3740 


1976 
7893 
9096 


1018 


$394 
11307 
11352 
108357 


11098 
11173 
10612 
10894 


10612 
10994 


27623 


2174 


Stsubscript, 


9086/M 
9516 
10643 
11383/M 
1o8ssS8&/M 
8543/M 
9033 
11464/M 


11166 


10987 


10227/M 


10985/M 


9336/S 


10447 
10537 
11116 
11168/S 
11207 
11308 
11338/S 
11360/M 
11362 
11373/S8 
113898 
11388/S 


8783/5 


1=1/0 


1989-08-21 


2144 2185 
8233 8815 
9138 $437 
$754 9762 
11303 11315 
11389 11389 
11288 11535 
11422 11603 
10613 10670 
10996 11124 
10613 10670 
10896 11124 
2764 2765 
2175 2190 
I:1I/0O ref, 


13: 


2280 
8867 
$526 


$823 
11323 
11393 


10671 
41125 


10671 
11125 


2766 


5480 


Reread, W-write, 


1989-08-21 13:33:34 
8222 $285 9397 
9579 9691 $967/M 
11114 11290/M 11311 
11389 11389/M 
8543 8566/M 8566 
9117 10452 10537 
11464 
11201 11299 11338 
10227 
10985 
§331/M 9331/S 9331/S 
9336 $336 
11142/M 11142/5S 11142/S 
11168 11168 
11338/M 11338/5S 11338/S 
11338 11338 11338/M 
11360/S 11360/S 11360 
11362 11369/M 1136S9/S 
11373/8S 11373 11373 
11389/M 11383/S 11389/5S 
11389 11389 
8784/S &8786/S 8787/S 

ref, R=sread, Wewrite, 


33:34 


2286 
8868 
$862 


10803 
11333 


10986 
11213 


10986 
11213 


5435 


PAGE 225 


P=parameter 


PAGE 226 


P=parameter 


REFERENCES OF 


13:33:34 


jism$monitor,_mode_job_swapper NOS/VE CYBIL/II 1.0 88102 1989-08-21 PAGE 227 
NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 
IDENTIFIER------ Se eee eee ee SS DEF TNE D «2 Sie: <'> 2 ee Se aia eS “REFERENCES 
ON LINE 
5629 S656 $735 5752 5786 5860 5397 69343 
$001 8863 S872 $920 $329 10253 
ost$binary unique _name 1035 781 4624 7516 7573 
ost$byte_count 2081 5472 
ost$compare_ swap_lock 1145 7335 
ost$cp_time 1804 1772 1817 6171 
ost$cp_time_value 1802 1265 1266 1407 1805 1806 6184 
ost$cpu_element_id 7057 7032 
ost$cpu_idle statistics 7091 7035 
ost$cpu_memory_port_mask 7059 7008 
ost$cpu_running or_stepped 7109 7106 7106 
ost$cpu_state 7104 7017 
ost$cpu_state_reason 7115 7038 
ost$cpu_state_ table 7004 6981 7001 10507 
ost$cs_ lock 1146 6152 
eost$cst_trace_control 7136 7036 
ost$date_time 4704 4169 
ost$debug_ code 6544 6532 
ost$debug_ list 6540 6444 
ost$debug_ list _entry 6531 6540 
ost$debug_ mask 6550 6443 
ostS$exchange_ package 6393 6139 
ost$execute_ privilege 5873 5855 5868 
ost$execut ion_control block 6138 5800 6164 7018 7239 7294 8046 9680 10272 
10694 
ost$external code _base_pointer 7476 7399 7432 
ost$external_interrupt request 7124 7024 
ost$fami ly, name 2352 2347 
ost$fiags 6450 6400 
ost$frame_descriptor 6508 6523 
ost$free_ running_c tock 1136 737 1264 1273 1376 1377 1378 1379 1413 
1423 1424 1425 1637 1649 "2189 6170 7642 
7861 7869 8771 8772 11054 11541 11599 
ost$global_task_id 830 799 883 1260 1370 1339 3884 4137 6149 
6150 6582 6785 7013 7287 
ost$halfword 2096 TO77 
est$idie_ type 7100 70395 
ost$key_ lock 1003 5861 $982 
ost$key_lock_value 1009 1006 6467 6469 
ost$keypoint_class 6482 6413 6484 
ost$keypoint_mask 6484 6416 
ost$logical _processor_id 7060 7009 
ost$minimum_save_area 6518 6405 6493 6679 
ost$monitor_ condition 6369 6376 
ost$monitor_ conditions 6376 6406 6410 64398 6754 6768 
ost$monitor_fault 6675 6624 
ost$monitor_fault_contents 6692 6688 
ost$name 2312 2301 2350 2352 3915 3945 5229 6198 6262 
6717 78572 7581 
ost$non_negative_integers 4699 41582 
ost$p_register 6465 6394 6519 6746 6752 
*** REFERENCE ABBREVIATIONS Memodify, Azattribute, S=tsubscript, 121/080 ref, R=read, Wswrite, Psparameter 
REFERENCES OF ism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 228 
NOS/VE js : monitor mode job swapper 
JSPSSWAP_POLLING 
TDENTIFIER- +--+ ee cee ne eee DEFINED-----+r er rere REFERENCES 
ON LINE 
ost$page_id 2061 2071 
est$page size 1123 1104 8053 
eost$page_table 2075 7877 
ost$page_table_ entry 2066 2075 2160 
ostS$page_table_ index 2059 2075 2225 
ost$paging_statistics 1840 1818 6179 
ost$parce} 2098 7030 7031 
ost$physical_ channel number 5049 4991 
ost$pre_processed for_reconfig 7132 7039 
ost$processor_element_id 7076 7057 
ost$processor_element_number 7085 7078 
ost$processor_id 6566 6142 6560 
est$processor_id_set 6560 6141 7918 739319 8031 190701 
ost$processor_model_number 1053 1037 2358 7079 
ost$processor_serial_number 1131 1036 23583 7080 
ost$pva 1025 6438 6456 6470 6676 6769 8236 
ost$read_privitlege 5876 5856 5869 
ost$real_memory address 2079 4015 4116 4858 7029 
ost$register_number 6461 6435 6504 6512 6513 6514 
ost$ring 1014 1026 5858 5859 5833 5973 5974 6455 
ost$ringt_terminat ion_reason 6578 6175 
ost$segment 1016 798 1027 5976 6100 6433 6534 9675 10265 
10895 
ost$segment_access_ contro} 5866 5995 
ost$segment_descriptor 5853 5827 
ost$segment_length 1020 4540 4651 5978 5980 6002 6004 6007 
ost$segment_ offset 1017 1028 2088 4539 $271 5470 5908 6535 6537 
ost$signature_lock 1147 3921 7351 7352 
ost$stack_frame_save_area 64392 6526 6712 
ost$state tables 7001 6987 
ost$status 2848 5989 6747 
ost$status condition 2872 2899 4633 4654 
ost$status_condit ion_code 2876 2851 2872 
ost$string 2889 2852 
ost$string size 2883 2890 
ost$system_flag 6853 6849 
ost$system_virtual_address 2086 2230 3045 5681 6917 6942 
ost$task_index 896 891 $30 $31 5294 7043 7232 
ost$task_time_ slice 1700 1686 
ost$top_of stack_pointer 6453 6445 
ost$trap_enable 6487 6402 6743 
ost$user_ condition 6379 6386 
ost$user_ conditions 8386 6404 6408 6496 6525 6715 6755 
ost$user_identification 2345 1259 7365 
ost$user_name 2350 2346 
ost$valid_ relative _ pointer 1023 804 807 6168 6169 
ost$valid_ring 1015 6445 
ost$vector_ simulation_control 8029 79320 
ost$virtual_machine_identifier 6475 6396 6398 6520 7469 7478 
ost$wait 4676 4653 
ost$word 2100 4052 


et 


REFERENCE ABBREVIATIONS : Memodify, Atattribute, S=:subscript, I+1/0 ref, Rzread, Wewrite, P=parameter 


REFERENCES OF 


NOS/VE js 
JSPSSWAP_POLLING 


IDENTIFIER----------e------ee- 


-ost$write_ privilege 
ost$x_register 
eosv$cpus_ logically _on 


osv$page_ size 


osv$time_to_check_asyn 


page _age_ limit 
page _ aging interval 
page _ count 
page _ count 
page_ count 
page status 
page table entry 
pageid 

" pages_in_memory 
pages needed 
pages _ removed 


pft_ entry 


pft Tink 
pfte_p 
pfti 
pfti 


pFfti 
pft i 


pfti 

pfti 
pmc$kill_task_flag 
pmc$mainframe_id_ size 


pmc$max_ signal contents 
pmc$max_task_id 


pmc$processor_model_number_ size 


pmc$processor_serial_num_size 
pmtS$binary mainframe_id 
pmtS$condition_identifier 
pmt$cpu_model_number 
-pmt$cpu_serial_number 
pmtS$initialization_value 


eX 


REFERENCES OF 


NOS/VE js : 
JSPSSWAP_ POLLING 


“IDENTIFIER-------------------- 


pmt$mainframe_id 
pmt$program_name 
pmt$sense_ switches 
pmt$signal 
pmt$signal_contents 
pmtS$signal_id 
pmt$task_id 

pmt$vector simulation 
poll jobs being Swapped 
polil_swapper_ again 
poll_swapping 

poll swapping 

poll swapping 

poll swapping 

poll swapping 
~pqie 
Pprocess_io_error_on_swapin 
process io _ error _on_swapout 
processor selections 
processors logically on 
pt_full_ status 

pti 

pti 
ptk$aji_for_swap_out 
ptk$per formance_base 


ptk$swapin_job_name_1 
ptk$swapin_job_name_2 

- ptk$swapping _ijl_ordinal 
ptk$swapping job_fixed 
ptk$swapping_ modified pages 
ptk$swapping_page_number 

“ptk$swapping removed pages 
ptk$swapping segment 
ptr_to_sfd 

“pva 


queue 
}queue_ file _ information 
~ queue _ id 

queue id 

queue_id 

\queue_id 


eek 


ism$monitor _mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
5879 
6462 
7229 


8053 


6939 


REFERENCE ABBREVIATIONS 


ism$monitor _mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
47183 


~ = 
~~ we 
wg 
WP 
— © 


— md mt et 
= 
N 
oo 
on 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


4144 
5153 
1274 
6786 
6794 
6793 
6166 
8030 
11548 
11546/M 
9406/M 
11031/P 
11338/M 
11291/M 
11590/P 
9022 
8641 
8505 
10701 
10701 
10141/P 
9158/5 
10129/M 
9368 
3114 
3138 
3162 
3186 
3210 
3234 
3258 
3282 
3306 
3330 
9072 
9073 
10997 
10992 
10993 
10988 
10994 
10986 
8902/M 
8532/M 


9021 
$9362 
8296 
101939 
$635 
86507 


Memodify, 


1.0 89102 


4955 


6583 


11586 
11593/M 


11033 
11389/M 
11310/P 
11592 
$151 
8666 
8527 
10702/M 
10702 
10144 
9162/S 
10130/S 
11213 
3117 
3141 
3165 
3183 
3213 
3237 
3261 
3285 
3309 
3333 
10612 
10613 


8905/P 
$222/M 


$022/S 
9963/M 
8595 
10200 
10183 
8609/5 


1.0 89162 
REFERENCES 

8857 5870 

6435 6504 

7213 7270 9387 
10811 11241 11248 
11338 11338 11341 
8823/P 8830 8873 
9481 $482 9486/P 
6929/M 8454/M 9405/M 
11170/M 11262/M 11338/M 
10918/M 10921/M 10925/P 
10912 

8330/M 8330 11238/M 
9485/M 

8480/M 9481 9482/M 
10731/P 10732 10732 
8896/M 10041 10130 
9896/M 
10046/M 10062/M 10082/M 
11411/P 
11442/P 11444 11449 
11462 11464 11466/P 
9885 9894 $9897/M 
10114/P 10114/P 10114/P 
10145 10146/P 10146/P 
9630 10047/M 10048/M 
10036 10097/M 10097 
9613/M 9614 9615 
9647/P 

9151/M 9156 9156 
9162/S 9166/P 9171/M 
9540/M 9541 9541/S 
9544/M 

9610/M 9612 9612 
9974/M 10012 10012 
10124/S 10125/S8 10126/S 
10721/M 10726 10726 
10738/P 1O742/M 
10964/M 10965 10965 
10984 10985/S 10987/S 
6869 

4719 

6830 

6588 

4722 4727 

4723 4777 

1263 4143 

66593 

1102 1109 

1103 1108 

796 S986 

Memodify, Azattribute, 


11897 
11599 


11337/P 


$610 
9564 
$590 


10152 
9541/S 

10131/S 

11338 


9274/M 


9965/M 
9757 


10187 


Atsattribute, 


$394 
11307 
11352 

8887 

9487/P 
10515/M 
11389/M 


11238 
9485 
10131 
10095/M 
11451 
9898/M 
10124/M 
10168 
10063/M 
$627/P 
$157/S 
9541 
9613/S 
10013/S 
10127/S 
10727/8S 


10866/S 
10989/M 


S=subscript, 


11388/P 


9541/S 
10132/S 
11389 

3123 

3147 

3171 

3195 

3219 

3243 

3267 

329 1 

3315 


11124 
117125 


9464/M 


$827/M 


10188 


S=subscript, 


9754 
11309 
11389 

&307 
10172 
10841/M 
11413/M 


9487/P 
10132 
10095 
11452/P 


10001 
10125 


10064/M 
9628 
9158/S 
9541/S 
9617/P 

10052/P 

10128/5S 

10728/5S 


10974/M 
109839/S 


11401/P 


9637/S 
10168 


$467 


11204 


10189 


Izs1I/O ref, 


IsI/0O ref, 


1989-08-21 


11406/P 


10129 
10172/S 


3129 
3153 
3177 
3201 
3225 
3249 
3273 
32397 
3321 


3579/M 


1989-08-21 13:33:34 
$762 9829 10803 
11315 11323 11333 
11388 11393 
8947 8948 8949 
10987 
10871/M 11034/M 11118/M 
11600/M 
10145 
11456 11457 11460 
10015 10112/M 10113/M 
10129 10139 10140/P 
10083/M 10084/M 10096/M 
9630 9645 9645 
$158/S 9159/58 §9160/P 
9541/S 9542/Ss 9543/P 
9651/M 
10053/M 10105 10114/P 
10194/P 10202/P 10220/M 
107239/5S 10733/8S 10737/P 
10974/S 109883/M 10984 
Rzread, Wewrite, P=p 


13:33:34 
11418 

10733/S 

3132 3135 
3156 3159 
3180 3183 
3204 3207 
3228 3231 
3252 3255 
3276 3279 
3300 3303 
3324 3327 
10418/M 10568/M 


Reread, W-write, 


PAGE 229 


arameter 


PAGE 230 


P=parameter 


REFERENCES OF 


NOS/VE js 
JSPSSWAP POLLING 


IDENTIFIER------- ee 


queue_id 
queue_id 


ready task_count 
reclaim_io_error_pages 
recover, job_dm_ tables 
recovery 

recovery 

request block 


request type 
request _ type 
request type 
request type 
request type 
request type 
requested page count 


reserved page_count 


reset changed _asid 

reset changed asid 
reset _ sdt addresses 

reset sdt_xcb tables 

reset swapped job _mm_tables 
residence 


residence 

residence 

residence 

residence 

residence 

residence 

residence 

residence 

residence 

residence 

residence 
residence_t ime 
restart idiled tasks 
rma 

rma 

rma 

rmc$external_ vsn_size 
rmc$recorded_ vsn_size 
rmc$unspecified file class 


ce 


REFERENCES OF 


NOS/VE js : 
JSPSSWAP_ POLLING 


IDENTIFIER-------------------- 


rmtS$external_vsn 
rmt$S$recorded_vsn 
rmtSvolume_ descriptor 


s 
scan_available_modified_queue 
sched requests 


sched trace 
scheduler swapins 
sdt_offset 

sdt_p 

sdt_p 

sdt_p 

sdt_p 

sdt_p 


sdtx offset 
sdtx_p 
sdtx_p 
sdtx_ op 


sdatx_p 
sdtx_p 


sdtx_ table 
sdtx_table 


seg 

seg 

seg 

seg 

seg 

seg 

seg 

seg 

seg 

seg 

seg 

seg 

segment Tink 
segment_ lock 
segment number 


segment_number 
segment _number 
segment_table_ address 1 


HRS 


ism$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
$324 
11273 


1821 
9594 
9658 
$936 
10263 
11274 


$314 
11052 
11059 
11076 
11179 
11273 

2262 


2263 


9937 
10250 
10249 
10246 

$843 

1220 


$353 
5391 
8806 
9126 
$432 
9594 
$843 
$861 
10246 
10710 
10880 
71734 
10429 
2072 
8864 
10264 
7540 
7543 
7509 


REFERENCE ABBREVIATIONS 


jsm$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
7546 
7553 
7558 


8244 
9155 
11051 


11058 
7736 
6168 
5801 
$658 
$9673 

10246 

10266 


6169 
$802 
$658 
$674 


10246 
10267 


§921 
5925 


10895 
6437 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


$071/M 
9155 

$359/M 
11104/M 
11299/M 
9359 

11321/M 
S806 

5806/M 
9696/M 
9696/P 
10276/M 
10329 /P 
10374/M 
5807 

5807/M 
S696/M 
s6g96/P 
9713 

10276/M 
10329/P 
10367/P 
$707 

9699/M 
$714 

10365/P 
8532/M 
5358/M 
5398/M 
8822/M 
$159/M 
9478/™M 
S627/M 
100S6/M 
s904/M 
10365/M 
10729 /M 
10966/M 
$639 

S700/M 
$6397 

9709/S 
10343 

10354/S 
10366/S 
10968/M 
10333/M 


M=modify, 


1.0 8910602 


7559 


10611/M 
9172 
$359/M 

11166/M 

11299/M 

11071 

11322 
$696 


9698 
10329/M 
10332/P 
10375/M 

S636 


9699/M 

9714 
10323/M 
10348 


9700/M 
$716/M 
10366 

$222/M 
5361/M 
5398/M 
8822/M 
9159/M 
9478/M 
9627/M 
10056/M 
$9304/M 
10365/M 
10723 /M 
108366/M 
10112/M 


9698/5 
$712/S 
10344/S 
10354/S 
10367/S 
109370/M 


1.0 88102 
REFERENCES 

9376 9377/S 
11338 11338/S8S 113898 
9185 $333 10901 
8324 9117 9654 
9730 10285 
9980/M 10002 10049 
10278/M 10283 
112930/M 11282 11297 
11359 11366 11367/P 
11406/P 11411/P 11413/P 
$359 
§$359/M 11067/M 11104/M 
11067 
11104 11166 
11201 
11299 11338 11389 
8324 8324 8324 
9117 9117/M 10451 
10837 10537 10537 
11157/M 
8324/M 8324 9117/M 
11149/M 11150 
8$884/M $982/M 10231/P 
10297 
10326 10331 
10231 10425 10676 
8692 10233 
5355 5398 S672 
9703 /M 9715 9716/M 
10182 10227 103493 
10728 10723 10966 
5355/M S359 5360 
5398/M 5398 5398 
8822/M 8822 8822 
$159/M 9159 $159 
9478/M 9478 9478 
9627/M 9627 $627 
10056/M 10056 10056 
s904/M $304 $904 
10365/M 10365 10365 
10729 /M 10723 10729 
10S66/M 10966 10966 
$389/M $3390 11242/M 
8324 $117 10495 
10172 
89S06/P 8907 
10332/P 10333 10334 
7546 
7553 
7502 

Mesmodify, Azattribute, 


1O0669/M 


9359/M 
11166/M 
11338/M 
11104 


10276 


10344 
10378/M 
10276 


8$700/M 
$716/M 


10351 


9705 
10348 
10367/P 

§$274/M 

5367 

5398 

8822 

9159 

9478 

9627 
10056 

9904 
10365 
10729 
108966 
10113/M 


9699/S 

$713/S 
10345/S 
10357 
10374/S 
10872/S 


Azattribute, 


11389/S 


10943 
10475 


10077 
11310/P 
11372 


11166/M 


8324 
10453 
10537/M 


9117 


8822 
$303 
10363 
10985 


10227/M 


10985/M 
11244 
10837 


=subscript, 


11123/M 


11067/M 
11166/M 
11338/M 
11166 


103293 


10345 
10382/M 
10329 


9705 


10352 


9706/M 
10351 


9464/M 


10227/M 


10885/M 


$700/S 
9714/S 
10347/S 
10358/S 
10375/S8 
10873/S 


S=subscript, 


11338 
10537 


11311 
11383/P 


11201/M 


8324/M 
10456 
11146 


10454/M 


9159 
9904 
10364 


10227 


10985 
11338/M 


11068/M 
11201/M 
11338/M 
1120601 


10347/S 


S7O6/M 


10363 


$708 
10352 


$467 


10227/M 


109385/M 


9705/58 
9$716/S 
10348/S 
10360/S 
10378/S 


I=1/o 


1=1/0 


1989-08-21 


11389 


11337/P 
11388/P 


11299/M 


9117 
10458 
11148 


10455 


9478 
10038 
1O365 


10227 


10985 
11338 


ref, Rtread, 


1989-08-21 


11069/M 
11201/M 
11389/M 
11299 


10354/M 


$708 
10364 
$709/M 


10353 


95739/M 


10227 


10985 


$706/S 


10351/S 
10363/S 
10382/S8 


ref, Reread, W:swrite, 


13:33:34 
11338/P 11355/P 
11389/P 11401/P 
11338/M 11389/M 

9117 9117 
10462/M 10537 
11151 11153 
10537/M 10537 

9627 9708 
10044/M 10056 
10366 10368 
11389/M 11389 

Wewrite, 


13:33:34 
11104/M 11104/M 
11201/M 11299/M 
11388/M 11389/M 
11338 11389 
10358/M 10360/M 

9709/M 9712 
10365/P 10366 
$712 $713 
10363 10364 
10418/M 10568/M 
3707/8 $708/S 
10352/S 10353/S 
10364/S 10365/S 


PAGE 231 


Pzparameter 


PAGE 232 


Pspar ameter 


REFERENCES OF ism$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 233 

NOS/VE js : monitor mode job swapper 

JSPSSWAP_POLLING 

IDENTIFIER*s+ += see ee eee ee ee eae DEFINED: "2+ s+ see eens REFERENCES 

ON LINE 

segment _table_address_ 2 6439 10334/M 

segment table length 6433 9697 10341 

service class 1415 9388/S $389/S $391/S $392/S 11242/S 11243/S 11245/S8 11246/S 
11316/S 11317/S 11320/S8 11321/S 11338/S 11338/S 11338/S 11338/S 
11389/S 11389/S 11389/S 11389/S 

set_ijle_ work 11482 11482 11510 

set_polling event 8266 8301/M 8383/M 8456/M 8462/M 8505/P 8508/M &8527/P 8646/M 

set_polling event 9570 9585/M 

set swapping event 10498 9405 10518 10841 10871 11034 11118 11170 11262 
11338 11388 11413 11600 

sfc$no_limit 3737 8823/P 

sfd_cell_p 8865 8888/M 8883/P 8906/P 

sfd_offset 8866 8873/M 8887/M 8887 8888 8903/P 

sfdiop 1384 8532 8532/M 8532/P 8532/M 8693/P 8902 8915/M 83816/M 
9221 $222 9222/M 9222/P $222/M 9273 8$275/M 9278/P 
83288/M $463 9465/M 9466/M $579 9579/M 9579/P 9579/M 
10417 10418 10418/M 10418/P 10418/M 10568 10568/M 10568/P 
10568/M 

“sfd_p 8234 8532/M 8532 $222/M $222 9273/M 9275 89463/M 9465 
9573/M 9579 10418/M 10418 10568/M 10568 

sfd_p 8936 8945 8946 8948 8948 

sfd_p 98847 9885 9886 98392 9893 9894 s896/M $897/M 9898/M 
9899/M 9954 gss75 9991 10001 10014 

Sfd_page_ count 8867 8871/M 8872 8889 /P 8921 

sfd_page_count 8937 8946/M 8948 8948 8948 8949 8S50/M 8950 8953 

sfd_purge_timestamp 1379 8472/P 8532/M $222/M 3300/M 9579/M $947/P 10418/M 10568/M 

sfid 2193 5671 9159/P 9$627/P 9903 93904/P 9991 $9982/M 10038 
10044/M 10055 10055 10056/P 10078 10078 10182 10348 
103493 10368 10728 10723/P 10966/P 10885/P 

sfid §343 5355 5356 5357 5368 

sfid 5391 5398/P 

sfid 5391 5398 5338 53398 5398 

sfid S665 5671 S672 

sfid 5835 9706/M $707 $708 3709/M 10348 10352 10353 10363 
10364 10365/P 10366 10367/P 

sfid 8806 8822/P 

sfid 8806 8822 8822 8822 8822 

sfid 9126 9159/P 

sfid $126 9159 $1593 $159 $159 

sfid $432 9478/P 

sfid 9432 “9478 9478 9478 9478 

sfid 9435 9478/P 

sfid 9594 9627/P 

sfid 95394 $3627 9627 $3627 $627 

sfid $843 10056 10056 10056 10056 10227 10227 10227 10227 

sfid $843 10227/P 

sfid 9861 93904/P 

sfid 9861 gs$soa 9904 9804 9904 

sfid 10246 10365/P 

sfid 10246 10365 10365 10365 10365 

 sfid 10246 10368 10368 


xs REFERENCE ABBREVIATIONS Memodify, Azattribute, S=subscript, I:I1/0 ref, Rtread, Wewrite, P:tparameter 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 234 
NOS/VE js : monitor mode job swapper 
JSPSSWAP_ POLLING 
TOENTIFIER---- +e ee rte ee ee eee DEFINED----+-"+*----- ee REFERENCES 
ON LINE 
sfid 10710 10729 10729 107293 10729 
sfid 190880 10966 10966 10966 1039366 10985 10985 16985 10985 
sft$counter 1850 1275 1277 1278 1280 1819 1820 
sftS$file space _limit_kind 3737 S306 59302 
shadow_info 5901 9712 9713 9714 9716/M 
shadow _segment_kind 6098 3712 $713 
shadow_sfid 6097 9714 9716/M 
soon 7891 8333 8395/M 8395 84239/M 8429 8488/M 8488 8532/M 
8532 8541/M 8541 8921/M 8921 9015 9024 9034 
$222/M 9222 $293/M $293 $573/M 9573 9579/M 9579 
10418/M 10418 10568/M 10568 10572/M 10572 10598/M 10598 
10622/M 10622 11251 11457/M 11457 
spd_ index 2136 8521/M 8565/M 8619/M 8663/M 9381/M 9480 9486/P 9492 
§9508/M 10574/M 11215/M 11338/M 11389/M 
spd_ index 9873 9892 9893/S 9894/S 9896/S $897/S 9888/S 9899/5 
spd_index 9938 3975/M 9991/S 10001/S 10003/P 10014/S 10049/P 10070/P 10085/P 
10154/P 10222/M 10222 
spd_p 993395 10014/M 10015 10021 10038 10041 10044/M 10045 10055 
10056/P 10061 10078 10081 10095/M 10096/M 10037/M 10088 
10112/M 10113/M 10114/P 10114/P 10114/P 10124/M 10125 10129 
10130 10131 10132 10139 10140/P 10145 10146/P 10146/P 
10168 
specified 3879 $153/M 9453/M 
st 5840 9698 10344 10345 10347/S 10354/M 10354 10358/M 10360/M 
10374/M 10375/M 10378/M 10382/M 
starting spd_index 9862 9885/S 9886/S 9882 
statistics 13898 9185 $333 10901 10904 10906 10907 10943 11338 
11389 
statistics 7709 9388/M 9388 9391/M 9392 11242/M 11243 11245/M 11246 
11316/M 11317 11320/M 11321 11338/M 11338 11338/M 11338 
11389/M 11388 11389/M 11389 
status 2833 11290/M 11310/P 11311 11338/P 11355/P 11367/P 11383/P 11389/P 
11401/P 11406/P 
‘status 7199 7202/M 7203/M 
status 8263 8532/P 8532/P 8532 
status 8267 8300/M 8304 8304 83739 /P &380 8381 8389/M 8440/P 
8441 8441 8446/M 8449/P 8450 8451/M 8459 8460/M 
8499/P 8501 8502 8512/M &8620/P 8622 8637/P 8638 
8639 8647/M 8693/P 8694 86s5 8700 
status 8806 8835/M 8835/M 8839/M 8839/M 
status 8808 8817/M 8835/P 8839/P 
status 8853 8878/P &88&889/P 8890 &8&30 8837 
status 8985 9036/M 9036/M 9086/M $086/M 
. status 8388 so008s/M $O036/P 9s064/P 3065 9080/P 9081 9086/P 
status 9141 9149/P 
status $196 9222/P 9222/P 9222 
status $266 9272/P $2739/P 9285 
status $3193 §396/P 9397 9407 $408/M 
Status 943s 9462/P 9487/P 9488 9503 $504 $511/M $516 
Status 8567 9579/P 9579/P 9579 
._ Status $605 8647/P 
eeE REFERENCE ABBREVIATIONS : M=modify, Azattribute, S*subscript, I:I/0 ref, R=read, Wewrite, P:parameter 


REFERENCES OF 


NOS/VE js : 
JSP$SWAP_POLLING 


IDENTIFIER---- +--+ --------2--- 


status 
Status 
Status 
status 
status 
status 
status 
status 
Status 
status 
status 
status 

ste 
stt$set_name 
subfunction 
Sum shared 
sva 


$sva 
Swap _count 
Swap_data 


Swap file descriptor page count 


swap_file_ descriptor pft i 
swap_fiie_tength_in_pages 
Swap_file sfid 
Swap_io_control 


swap queue link 
Swap_reason 

Swap reason 

Swap _resident_ijie_p 


Swap_resident_ijlo 


xeX 


REFERENCES OF 


NOS/VE js 
JSPSSWAP_POLLING 


IDENTIFIER-----------------ee 


Swap_stats 


Swap_status 


swap_status 


swap_wait time 
swapin_after_io 

swapin before_io 

swapin_q priority timestamp 
Sswapout io cannot initiate 
Swapout io_not_ initiated 


Swapout reason 
Sswapout reason 
Sswapout timestamp 
sSwapped_job_entry 
Swapped_ job_entry 


swapped_job_entry 
Swapped_job_page_ count 


swapped _page_ descriptors 


swapped pages 
swapping _io_error 


swapping keypoints 


swapping stack_trace 
syc$mf_cause_ job_recovery 
syc$mf_for_keypoint_traceback 
syc$ucr_ condition 
syc$user_defined_condition 
Ssystem_breakpoint selected 
system_ijle_p 
system job _monitor sdt_p 


ee 


jism$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
3677 
9843 
$848 
10246 
10521 
10530 


1977 


2140 
1422 
1419 
1383 


1364 


9317 
11273 
10799 
10798 


REFERENCE ABBREVIATIONS 


ism$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
7716 


1358 


10531 


7735 
106353 
10584 

1413 

7893 

7832 


1410 
2837 
1425 
1281 
1427 


2151 
1421 


2152 


7733 
1420 


3868 


3870 
6611 
6614 
6703 
6704 
1385 
$679 
10268 


REFERENCE ABBREVIATIONS 


erowrnvne Beane ae en wee wm wo 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 
9388/M 9390 
11316/M 11317 
11388/M 11389 
8302 8305 
9351 9365 
10645 10650 
11338 11338 
11446 11447 
11584 
10533/M 10835 
10565 
11316/M 11318 
8485 8568 
8338 8362 
11319 
8481/M 8482 
8328/M 8328 
$173/M 9180 
10656/M 10657 
9361/M §$3936/P 
11337/P 11359 
§$385/M $390 
8913/M 98468/M 
8328/M 8423 
8532 8608 
8953/M 8370/M 
9222 9278/P 
10418 10423/P 
11455/M 11456 
8915/M 
8328/M 8328 
8483 8489 
8819 8872 
9182 9380/M 
190618 10623 
11239 11247 
9885 S886 
s83s3/M 99375 
$3S31/M 9393 
8378 8385/M 
11396/M 
3070 $367 
11389 
8324 9117 
S690/P 
8324/P 9117/P 
6714 
6716 
10403/M 
968a/P 
10275/P 10354 
Memodify, 


1.0 89162 

REFERENCES 

8690/P $691 

10150/M 10150/M 

9967/M $968/M 10150/P 
10418/P 10418/P 10418 
10568/P 10568/P 10568 
10593/P 105894 

10642/P 10643 

11031/P 

11113/P 11114 

11338/P 11338 11338 
11355/M 11355/M 11367/M 
11590/P 

9698 10344 10345 

7363 

11297 

9020/M 8$022/M 9022 

9628 9634 9634 
10114/P 10139 10140/P 

S686 

83239 /M 8323 11237/M 

&8328/M 8328/M 8328 

8423 8425 8430 

8476/M 8483 8489 

8522 8532/P 8532 

8634 8635 8636/P 

8819 8820 8821 

8915 8940 8353/M 

9078/P 9177/M 9178 

$222 $278/P 9294 

9468 9509/M $547/M 
10418/P 10418 10423/P 
10618 10623 10628/P 
11236/M 11236/M 11236 
11338/M 11338 11338 
11389 11396/M 11444/M 
1145S3/M 11460 

8448/P 8453 8437 

8953/M 9010 9222/P 
10418/P 190418 10568/P 

8907/M 10214 10214 

8821 8829/M 

8498/P 8636/P 8822/P 

8499/P 8521/M 8565/M 

§508/M 10214 10214 

8296 8595 9757 

9777 3$778/P S773/M 

9810/M 9827/M 11204 

9328 9330 9361 
11338 11338 11338 
10801/P 10805 

10801/P 10807/P 10809/P 

Msmodify, Azattribute, 


e 


$3S81/M 
11320/M 
11389/M 

8718 
10533 
10654 
11338 
11453 


10547 


10576 
10556 


9575/M 

8392/M 

9182/M 
11128/M 
11338/M 
11366 
11225/M 


8425 
8635 
9010 
3294 
10568/P 
11459/M 


8331 
8496 


11245/M 
8504/M 


10610 
10478 


10479/P 


Azattribute, 


11338/M 
11367/M 


10358/M 


9024 
9647/P 
10146/P 


11237 
8331 
8431/M 
8496 
8542 
8659 
8822/P 
8370/M 
$180 
9380/M 
9574 

10568/P 

10648 

11239 

11338 

11444 


8532/P 
$222 
10568 


8619/M 
10574/M 

9770 

S779 
11551 


11389 


S=subscript, 


$392 
11322 
11389 

&775 
10596 
10655 
11389 
11454 


10548 


10678 
10630 


$576 

8393 

9182 
11129 
11338/P 
11372 
11244 


8431/M 
&8692/P 


10537 


10537/P 


S=subscript, 


11389/P 
11383/M 


10374/M 


9885 
10168 


8378 
8431/M 
84397 
8544 
8660 
8829/M 
8974/M 
$182/M 
$385/M 
9576 
10868 
10652 
11244 
11389/M 
11448/M 


8532 
$279/P 


8637/P 
11215/M 

9771/P 

$781 


11389 


I=I/0 


11242/M 
11338/M 


8788/M 
10597 
10833 
11388 
11458 


10548 


10646/M 

8431/M 
10600/M 
11236/M 
11363/M 
11388/P 
11338/M 


8448/P 
8820 
9177/M 
9547/M 
10628/P 


8396 
8544 
8977 
SS76 
10658 
11389/M 
9894 
10014 
11338/M 
8522 


10982 
11160 


11161/P 


I2s1/0 ref, 


Reread, W-ewrite, 


1989-08-21 13:33:34 
11389 11389 11389 /M 
11383/M 
10378/M 410382/M 

$894 983937/M 10001 
109387 

8385/M 8394 8396 
8431 8448/P 8453 
8498/P 8504/M 8520 
8567 8608 8611/M 
8692/P 8778 8797/M 
8871 8872 8913 
8377 $soos $010 
$182/M $182 $222/P 
$3390 93390 $333 
9579/P $5793 10294 
10573 10599 10602 
10658 11129 11225/M 
11244 11247 11338/M 
11383/M 113893 113898 
11448 11455/M 11456 
8635 8820 8871 
$294 $573/P $579 
8663/M 8907/M $381/M 
11338/M 11389/M 

9772/M S772 9774 
9803/M 9804/M 9806/M 
11389 

ref, R=read, W:write, 

1989-08-21 13:33:34 
11243 11245/M 11246 
11338 11338/M 11338 
$226 9347 $349 
10616 10620 10621 
10860 11103 11338 
113893 113898 11397 
114663 11583 11560 
10549 10551 10565 
10647 11461/M 11462 
8431 8376/M 8377 
10601 10617/M 10618 
11236 11450/M 11451 
11389/M 11389/P 
11338 11389/M 11389 
8453 8497 8532/P 
8871 8913 8915 
9178 9182/M 9222/P 
9579/P $579 10418/P 
11236/M 11448/M 114498 

8430 8431/M 8431 
8567 &8611/M 8634 
9008 9180 $182/M 
10573 105399 10602 
11129 11236/M 11236 
11389 11444/M 11444 
S896/M §9837/M $898/M 
11338 11389/M 11389 
8659 8660 §509/M 
11122 11212 11338 


Pep 


PAGE 235 


Psparameter 


PAGE 236 


arameter 


REFERENCES OF 


NOS/VE js 
JSPSSWAP_POLLING 


IDENTIFIER-------------------- 


System_job_monitor_sdtx_p 
“System_job_monitor sdtx_p 
system_supplied name 


Syt$180_idile_code 
Syt$monitor flag 
Syt$monitor_ flags 
Syt$monitor_request_code 
Syt$monitor_ status 


syt$perf_ keypoints enabled 
Syt$test_jr_set 
Syv$perf_keypoints enabled 


tail 

task created _ after last _swap 
task_queue 

temp_asti 

template _asids changed 
terminate access work 


terminate_access work 
time 

time 

time 

time 
time_spent_in_job_mode 
time_spent_in_mtr_mode 
timestamp 

timestamp 

timestamp 

tmc$ 


tmeS$broken_task_fault_id 
tmc$btc_invalid_ ao 
tme$btc_invalid_p 
tmce$btc_mcr_traps_disabled 
tmce$btc mf _traps_ disabled 
tme$btc_ mntr_fault buffer full 
tmc$btc_ system_error 
tmc$btc_ucr_ traps_disabled 
tme$dummy_ fault 

tmc$filag availabie_ 31 
tmc$fnx_ continue 

tmc$fnx swapping job 


tmc$maximum_monitor_faults 
‘tme$maximum_signals 


*¥xt 


REFERENCES OF 


‘NOS/VE js : 
JSPSSWAP_POLLING 


IDENTIFIER---+- +--+ ee - ee eee ee eee 


tmc$maximum_system_task_id 
tme$mecr_ fault 
tmc$signal_available_63 
tme$stid_ null_task 
tmc$ts_io_wait_not_queued 
tmc$ts_ page wait 

tme$ts_ ready 
tmc$ts_timed_wait_not_queued 


tmc$ts_ timeout reqexp_longviong 
tme$ts_timeout reqexp_shortshrt 


tmp$clear_ lock 


tmp$find_next_xcb 
tmpS$idie_tasks_in_job 
tmp$monitor_ flag job_tasks 
tmp$restart_idled_tasks 
tmp$set_ lock 


tmp$set_ monitor flag 
tmp$set_ up_debug registers 


tmp$update_job_task_environment 


tmt$broken_task condition 
tmt$broken_task_monitor_ fault 
tmt$dispatch_control 
tmt$dual_state priority entry 
tmt$find_next_xcb_ state 
t«tmt$fnx_search_ type 
tmt$mer_fauits 
tmt$monitor_fault_buffer 
tmt$monitor fault buffers 
tmt$monitor fault_identifiers 
tmt$pt1_ lock 

tmt$signal 

tmt$signal_buffer 
tmt$signal_buffers 
tmt$system_flags 
tmt$system_task_id 
tmt$task_queue_ link 

tmt$task status 

tmv$pt 1_ lock 
tmv$swapin_in_progress 

total pages _ per_segment 
total_pages_ removed 

total swapped _page_ count 
total_swapped_page_count 
total_swapped page_count 
total swapped _page count 
total _ swapped page count 
total swaps 

total time 

trace 


xeex 


jsm$monitor mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 


9661 
10269 
1353 


7144 
6610 
6595 
2909 
2897 


° 
N 
~ 
° 


So] 
td 
& 
° 


2 = 
° 
LS 
~j 
—_ 


1054 
3740 


6631 
6729 
6729 
6730 
6729 
6728 
6731 
6730 
6632 
6866 
5286 
5286 


6636 
6846 


REFERENCE ABBREVIATIONS 


jsm$monitor_mode_job_swapper 


monitor mode job swapper 


DEFINED 
ON LINE 
6875 
6631 
6828 
6885 
3851 
3853 
3838 
3845 
3843 
3842 
7211 


7235 
7244 
7252 
7259 
T7264 


REFERENCE ABBREVIATIONS 


se e@eeeeereaacneae wea ow 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 

9706 
10276/P 10285/P 10352 
9071 9954 9954 
10761 11123 
7025 7932 7934 
6595 7253 7288 
6140 
2832 4648 
2833 4649 5317 
7199 7247 7289 
9266 9319 9439 
11021 11096 11533 
3861 
8223 8223 8223 
8324 $070 9117 
10982 11122 11160 
10127/M 
10931 10941/M 
10126/M 10127/M 
9050/P 
10298/M 10299 10315 
9403/M 10748 10759 
11338/M 11389/M 11495/M 
11496 
5764 
8472 
9947 
10957 
10904 10906 
10907 
8778 8797/M $390 
10294/M 10295 10298 
9359/M 11069/M 11104/M 
3746 3749 3752 
3770 3773 3776 
6681 
6750 
6750 
6751 : 
6749 
6749 
6745 
6751 
6687 
6870 
8$724/P 10391/P 10407/P 
8324/P 9117/P 9686/P 
10773/P 
6627 
6843 

Mzmodify, Atattribute, 


1.0 89102 
REFERENCES 

6882 

6683 

6839 

6882 

3833 

3834 

3823 

3832 

3831 

3830 

7224 $394 $762 
11338 11341 11389 
9686 9724 10324 
8396 11338 11389 
8324 9117 10479 
8324 9117 10486 
7282 9387 9754 
11338 11352 11389 
$690 
10406 

8324 9117 10468 
6744 

6682 

7020 

7007 7186 

7238 9681 10273 
5277 §289 7235 
6684 

6177 

6622 6623 6624 
6680 6756 

7211 7264 77850 
6779 

6178 

6777 6778 6779 
6153 

6144 

922 2226 

7177 
10803/P 10811/P 11307/P 
&8650/M 8650 8658/M 
10972/M 10973 10876/M 
10926/P 10828/P 10994 
8496/M 84939/P 8634/M 
8813/M 8821 8823/P 
8872/M &8904/P 

soos /M 9014 9015 
9480 $492 
10878/M 108978 

8784/M 8784 

8257 8315 8322 

Memodify, Atattribute, 


5475 
8267 
$605 


8367 
11212 


10766 
11495 


11244 


11166/M 
3755 
3779 


10704/P 
10324/P 


S=subscript, 


$829 
11393 
10391 
10537 


10537 
10803 


10537 


10685 
7300 


8058 


11303/P 
8658 


8637/P 
8829 


$025 


8324 


S=subscript, 


1989-08-21 13:33:34 

10611 10669 10751 10756 
$485 5500 5748 5781 
8808 8853 83988 9141 
S677 9848 10590 10639 
10478 10537 10610 10668 
11338 11389 
10774/P 10779 /M 10840/M 11221/M 
11502 
11338 11389 
11201/M 11299/M 11338/M 11389/M 
3758 3761 3764 3767 
3782 3785 3788 3791 
10404/P 10468/P 10537/P 10698/P 

Is=I/O ref, Reread, Wewrite, P=p 


1989-08-21 


10811 11248 
10404 10407 
11161 

11164 

11241 11307 
8202 8202 
11333/P 11341/P 
8830 

9027/P 9032 
8337 8349 

Ie1/0O ref, 


13:33:34 
11309 11323 
10698 10704 
11315 11333 
11352/P 113983/P 

$033 
8428 8447 


Reread, Wewrite, P:zp 


PAGE 237 


arameter 


PAGE 238 


arameter 


REFERENCES OF jsm$monitor_mode_job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 239 
NOS/VE js : monitor mode job swapper 
JSPSSWAP_ POLLING 
IDENTIFIERS «9 2% ese cers eae Ses PEPINED==3* += S25 56> = REFERENCES 
ON LINE 
7 8492 8503 8523 8526 8555 8597 8640 8661 
8665 8674 8726 8825 8834 8838 $026 8035 
$049 $053 9055 SO6GE $082 $117 9161 9168 
$186 $223 $232 $239 $246 9366 3489 $538 
$539 $616 $626 S636 $646 $888 $890 98395 
10025 10039 10042 10051 10059 10066 100793 10083 
10123 10142 10148 10183 10159 10184 10190 10192 
10201 10284 10300 10303 10306 10328 10338 10355 
10361 10376 10379 10383 10460 10536 10537 10550 
10553 10566 10595 10644 10806 10910 10913 10928 
10829 10944 11105 11115 11155 11167 11205 11300 
11312 11338 11389 11398 11404 11442 11452 11466 
11568 
trace_index 8253 &256/S 8256/S 
trace_index 8263 8315/58 8315/S 8322/S 8322/S 8324/Ss 8324/S 8337/S 8337/S 
8349/8 8349/58 8428/5 8428/S 8447/S 8447/S 8492/S 8492/Ss 
8503/5 8503/S 8523/58 8523/8 8526/S 8526/5 8555/s 8555/S 
8597/S 8597/58 8640/8 8640/S 8661/S 8661/S 8665/S 8665/S 
8674/S 8674/S 8726/5 8726/S 
trace index &88O6 8825/Ss 8825/8 8834/58 8834/S 8838/S 8838/S 
trace_index 8985 8026/5 9026/58 9035/58 9035/58 90439/S 9043/5 $053/S 9053/S 
9055/S 9055/8 SsO66/S 9066/S 9082/S 9082/5 
trace_index $0393 9117/8 9117/8 
trace_ index $126 9161/S $161/S 9168/S 9168/S 9186/S $186/S 
trace_index 9196 9$223/S 8223/8 9232/8 9232/S $233/S §$239/S 9246/5 $246/S 
trace_index 9314 9366/S 9366/S 
trace index $432 9$489/S 9489/5 
trace index 9524 9538/58 9538/S $539/S 9539/S 
trace_index 9594 $616/S $616/S $626/S $626/S 9636/S 9636/5 9646/S 9646/S 
trace_index 9843 10025/S 10025/5 10039/S 160039/S 10042/S 10042/S 10051/S 10051/S 
10059/S 10059/S 10066/S 10066/S 10078/S 100783/S 10093/S 10093/S 
10123/S 10123/S 10142/S 10142/S 10148/S 10148/5 10153/S 10153/S 
10159/S 10159/S 10184/S 10184/S 10190/S 10190/S 1060192/S 10192/S5 
10201/S 10201/S 
trace_index 9861 $888/S 8$888/S $890/S 98390/S 9895/S 9895/S 
trace index 10246 10284/S 10284/S 10300/S 10300/S 10303/S 10303/S 10306/S 10306/Ss 
10328/S 10328/S 10338/S 10338/S 10355/S 10355/S 10361/S 10361/S 
10376/S 10376/S 10379/S 10379/S 10383/S 10383/S 
trace_index 10429 10460/S 10460/S 
trace index 10521 10536/S 10536/S 10537/S 10537/S 10550/S 10550/S 10553/S 10553/5 
10566/S 10566/S 
trace_index 10584 10595/S 10595/S 
trace index 10633 10644/S 10644/S 
trace index 10797 10806/S 10806/S 
trace_index 10880 10810/S 10910/S 10913/S 10813/S 10928/S 108928/S 10923/S 10929/S 
10944/S 10944/S 
trace_ index 11076 11105/S 11105/S 11115/S 11115/S8 11155/S 11155/S 11167/S 11167/S 
trace index 11179 11205/S 11205/S 
trace_index 11273 11300/S 11300/S 11312/S 11312/S 11338/S 11338/S 11389/S 11389/S 
11399/S 11399/S 11404/S 11404/S 
trace_index 11435 11442/S 11442/S 11452/S 11452/S 11466/S 11466/S 
* + REFERENCE ABBREVIATIONS Msmodify, Asattribute, S:subscript, I:I/0 ref, Reread, Wewrite, Psparameter 
REFERENCES OF jsm$monitor_mode_ job_swapper NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 240 
NOS/VE js monitor mode job swapper 
JSPSSWAP_ POLLING 
POENTIFIERS ss sos es es ee ee aes DEFINED «ss: 244 4 6 <4 b= REFERENCES 
ON LINE 
trace_index 11515 11568/S 11568/S 
try 8869 8884/M 8890 8836/M 8896 
tu _ pfte_ p S606 8633/M $634 $634 $635 9637/S 
tu _pfti $607 3630/M $632 3632 $633/S S633/M 9639/58 
u 2069 10130/M 10130 
update processor selections 10689 103397 10707 
update _segnum_sfd_p 8263 8532/M 8532/M 8532 
update segnum_sfd_p 9196 $222/M $222/M $222 
update _ segnum sfd_p $267 9273/M 9274/M $275 
update segnum sfd_p $450 9463/M 9464/M 9465 $467 
update segnum_ sfd_p 9567 9579/M 3573/M 9579 
update segnum_sfd_p. 10246 10418/M 104818/M 10418 
update segnum_sfd_p 10521 10568/M 10568/M 10568 
update server files 10710 10412 10780 
v 2067 9541 9541 10132/M 10132 
vi 5854 9698 10344 
write status $142 $160/P 
xcb op 5800 5806 5806 5807 5807 
xcb_p $656 3696 9696 S636 S696 
xcb_ op 3680 9686/P 8688 9688 $3690/P S695/M S8696/P $637 $722/M 
$724/P 
xcb_p 10246 10276 10276 10276 10276 10328 10329 10329 10323 
xcb op 10272 10324/P 10327 10327 10329/P 10333/M 10334/M 10341 10391/P 
10404/P 10405 10405 10406/P 10406/P 10407/P 
xcb_p 10694 106938/P 10700 10700 10701 10702/M 10704/P 
xcb_state 9681 9686/P $724/P 
xcb_ state 10273 10324/P 10391/P 10404/P 10407/P 
xcb_state 10695 1O698/P 10704/P 
xp 6138 $697 10333/M 10334/M 10341 


*** REFERENCE ABBREVIATIONS 


Mzmodify, 


Azattribute, 


S=subscript, 


I2=I/O ref, 


Reread, Wswrite, 


P=parameter 


